Remove trailing dots in t/porting/readme.t on VMS.

Because on VMS a zero-length extension still has a dot.

diff --git a/t/porting/readme.t b/t/porting/readme.t
index 505e1e3..621643f 100644 (file)
--- a/t/porting/readme.t
+++ b/t/porting/readme.t
@@ -31,6 +31,7 @@ while(<$fh>) {
 
 for my $file (@porting_files) {
     $file =~ s!^Porting/!!;
+    $file =~ s/\.\z// if $^O eq 'VMS';
     next if $file =~ /^perl[0-9]+delta\.pod$/;
     ok(exists($files_in_pod{$file}), "$file is mentioned in Porting/README.pod");
     delete $files_in_pod{$file};