From 4105b9fdf17a72f17cc0d8dca8b8fca3d05612f8 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 7 Jul 2013 14:28:21 -0500
Subject: [PATCH] Remove trailing dots in t/porting/readme.t on VMS.

Because on VMS a zero-length extension still has a dot.
---
 t/porting/readme.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/porting/readme.t b/t/porting/readme.t
index 505e1e3..621643f 100644
--- 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};
-- 
2.7.4