Change 33975 by [EMAIL PROTECTED] on 2008/06/01 12:15:09
Upgrade to Devel::PPPort 3.14
Affected files ...
... //depot/perl/ext/Devel/PPPort/Changes#45 edit
... //depot/perl/ext/Devel/PPPort/PPPort_pm.PL#38 edit
... //depot/perl/ext/Devel/PPPort/parts/ppptools.pl#13 edit
... //depot/perl/ext/Devel/PPPort/soak#33 edit
Differences ...
==== //depot/perl/ext/Devel/PPPort/Changes#45 (xtext) ====
Index: perl/ext/Devel/PPPort/Changes
--- perl/ext/Devel/PPPort/Changes#44~33824~ 2008-05-13 12:50:23.000000000
-0700
+++ perl/ext/Devel/PPPort/Changes 2008-06-01 05:15:09.000000000 -0700
@@ -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
==== //depot/perl/ext/Devel/PPPort/PPPort_pm.PL#38 (text) ====
Index: perl/ext/Devel/PPPort/PPPort_pm.PL
--- perl/ext/Devel/PPPort/PPPort_pm.PL#37~33824~ 2008-05-13
12:50:23.000000000 -0700
+++ perl/ext/Devel/PPPort/PPPort_pm.PL 2008-06-01 05:15:09.000000000 -0700
@@ -508,7 +508,7 @@
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
{
==== //depot/perl/ext/Devel/PPPort/parts/ppptools.pl#13 (text) ====
Index: perl/ext/Devel/PPPort/parts/ppptools.pl
--- perl/ext/Devel/PPPort/parts/ppptools.pl#12~32827~ 2008-01-04
06:10:18.000000000 -0800
+++ perl/ext/Devel/PPPort/parts/ppptools.pl 2008-06-01 05:15:09.000000000
-0700
@@ -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 @@
}
unless (exists $data{provides}) {
- $data{provides} = ($file =~ /(\w+)$/)[0];
+ $data{provides} = ($file =~ /(\w+)\.?$/)[0];
}
$data{provides} = [$data{provides} =~ /(\S+)/g];
==== //depot/perl/ext/Devel/PPPort/soak#33 (text) ====
Index: perl/ext/Devel/PPPort/soak
--- perl/ext/Devel/PPPort/soak#32~33824~ 2008-05-13 12:50:23.000000000
-0700
+++ perl/ext/Devel/PPPort/soak 2008-06-01 05:15:09.000000000 -0700
@@ -33,7 +33,7 @@
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 = (
End of Patch.
