This is a live mirror of the Perl 5 development currently hosted at
Trim trailing dots on VMS in podcheck.t.
authorCraig A. Berry <>
Sat, 13 Aug 2011 15:19:08 +0000 (10:19 -0500)
committerCraig A. Berry <>
Sat, 13 Aug 2011 16:01:50 +0000 (11:01 -0500)
readdir() and thus File::Find return files having zero-length
extensions as 'foo.' which doesn't match entries like 'foo' in
the known problems database.  Trimming that trailing dot reduces
the number of failures on VMS to a handful.  They are primarily
due to:

1.)  The test attempts to exclude .PL files, but on VMS, case is
not preserved by default, so these appear as .pl and are not
excluded, confusing a number of the tests.

2.)  Utilities and scripts are built with a .com extension on VMS,
but the corresponding entries in the known problems database have
no extension, so they don't match.


index 6f71914..2bfddfd 100644 (file)
@@ -393,6 +393,7 @@ sub canonicalize($) {
     # Assumes $volume is constant for everything in this directory structure
     $directories = "" if ! $directories;
     $file = "" if ! $file;
+    $file =~ s/\.$// if $^O eq 'VMS';
     my $output = lc join '/', File::Spec->splitdir($directories), $file;
     $output =~ s! / /+ !/!gx;       # Multiple slashes => single slash
     return $output;