Just for the record, a fix for this bug has been applied to the development sources as change #18705, so you can expect it to appear in perl-5.10.0 and future maintenance releases such as perl-5.8.1.

The patch is here, so you could even apply it to your local copy of 5.8.0 if you're desperate for it (but do remember to add a reference in the local_patches in patchlevel.h if you do that).