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 (file)
--- 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];