From 0f06b1bbd2d65b2f053b58aeebed39ac8aba7fc6 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 5 May 2007 23:44:01 +0000
Subject: [PATCH] Make ppptools.pl allow a trailing dot in filenames for VMS.

p4raw-id: //depot/perl@31157
---
 ext/Devel/PPPort/parts/ppptools.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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];
 
-- 
2.7.4