Trim trailing dots on VMS in podcheck.t.

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.

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 6f71914..2bfddfd 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -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;