I have been complaining that File::Find is now broken
on VMS as of late.  Ironically with the [EMAIL PROTECTED] kit
it passes all 79 of its tests:

$ perl lib/File/Find/t/find.t
1..79
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
<snip>
ok 77
# check postprocess
# postprocess: $File::Find::dir => './fa/faa'
# postprocess: $File::Find::dir => './fa/fab/faba'
# postprocess: $File::Find::dir => './fa/fab'
# postprocess: $File::Find::dir => './fa'
# postprocess: $File::Find::dir => './fb/fba'
# postprocess: $File::Find::dir => './fb'
# postprocess: $File::Find::dir => '.'
ok 78
# checking argument localization
ok 79

OK fine it passed all 79 tests.  Note that is uses unusual directory
names like 'fb' and 'fba'.  In order to see the
test fail all I had to do was define a logical name.  For example:

$ define fb USER:[PVHP.58X.PERL]
$ perl lib/File/Find/t/find.t
1..79
ok 1
ok 2
ok 3
ok 4
ok 5
not ok 6
 file exists

Can anyone else reproduce this problem?  That is define "fb" to
be an existing directory then try to run "perl lib/File/Find/t/find.t"
Thanks for any confirmations.

Peter Prymmer


Reply via email to