Upgrade to Devel::PPPort 3.14

p4raw-id: //depot/perl@33975

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index 816759b..daccc94 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,8 @@
+3.14 - 2008-06-01
+
+    * fix CPAN #36197: filename nit in parse_partspec
+      (thanks to Craig A. Berry for providing a patch)
+
 3.13_03 - 2008-05-13
 
     * fix CPAN #35835: SvPV_flags_const_nolen segfaults prior

diff --git a/ext/Devel/PPPort/PPPort_pm.PL b/ext/Devel/PPPort/PPPort_pm.PL
index dc4fa89..5a8c227 100644 (file)
--- a/ext/Devel/PPPort/PPPort_pm.PL
+++ b/ext/Devel/PPPort/PPPort_pm.PL
@@ -508,7 +508,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.13_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 sub _init_data
 {

diff --git a/ext/Devel/PPPort/parts/ppptools.pl b/ext/Devel/PPPort/parts/ppptools.pl
index 6deef78..01df117 100644 (file)
--- a/ext/Devel/PPPort/parts/ppptools.pl
+++ b/ext/Devel/PPPort/parts/ppptools.pl
@@ -4,9 +4,9 @@
 #
 ################################################################################
 #
-#  $Revision: 23 $
+#  $Revision: 24 $
 #  $Author: mhx $
-#  $Date: 2008/01/04 10:47:40 +0100 $
+#  $Date: 2008/05/27 13:04:10 +0200 $
 #
 ################################################################################
 #
@@ -110,7 +110,7 @@ sub parse_partspec
   }
 
   unless (exists $data{provides}) {
-    $data{provides} = ($file =~ /(\w+)$/)[0];
+    $data{provides} = ($file =~ /(\w+)\.?$/)[0];
   }
   $data{provides} = [$data{provides} =~ /(\S+)/g];
 

diff --git a/ext/Devel/PPPort/soak b/ext/Devel/PPPort/soak
index 7dcd74e..25a9b6b 100644 (file)
--- a/ext/Devel/PPPort/soak
+++ b/ext/Devel/PPPort/soak
@@ -33,7 +33,7 @@ use File::Find;
 use List::Util qw(max);
 use Config;
 
-my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.13_03 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14 $' =~ /(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 $| = 1;
 my %OPT = (