This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove trailing dots in t/porting/readme.t on VMS.
authorCraig A. Berry <craigberry@mac.com>
Sun, 7 Jul 2013 19:28:21 +0000 (14:28 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sun, 7 Jul 2013 20:09:39 +0000 (15:09 -0500)
Because on VMS a zero-length extension still has a dot.

t/porting/readme.t

index 505e1e3..621643f 100644 (file)
@@ -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};