From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 5 May 2007 23:44:01 +0000 (+0000)
Subject: Make ppptools.pl allow a trailing dot in filenames for VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f06b1bbd2d65b2f053b58aeebed39ac8aba7fc6;p=p5sagit%2Fp5-mst-13.2.git

Make ppptools.pl allow a trailing dot in filenames for VMS.

p4raw-id: //depot/perl@31157
---

diff --git a/ext/Devel/PPPort/parts/ppptools.pl b/ext/Devel/PPPort/parts/ppptools.pl
index 6bd9a07..64a4cf8 100644
--- a/ext/Devel/PPPort/parts/ppptools.pl
+++ b/ext/Devel/PPPort/parts/ppptools.pl
@@ -107,7 +107,7 @@ sub parse_partspec
   }
 
   unless (exists $data{provides}) {
-    $data{provides} = ($file =~ /(\w+)$/)[0];
+    $data{provides} = ($file =~ /(\w+)\.?$/)[0];
   }
   $data{provides} = [$data{provides} =~ /(\S+)/g];