Change 34676 by [EMAIL PROTECTED] on 2008/10/31 07:23:54
Upgrade to Devel::PPPort 3.14_05
Affected files ...
... //depot/perl/ext/Devel/PPPort/Changes#50 edit
... //depot/perl/ext/Devel/PPPort/PPPort_pm.PL#43 edit
... //depot/perl/ext/Devel/PPPort/parts/inc/pv_tools#2 edit
... //depot/perl/ext/Devel/PPPort/soak#38 edit
... //depot/perl/ext/Devel/PPPort/t/pv_tools.t#2 edit
Differences ...
==== //depot/perl/ext/Devel/PPPort/Changes#50 (xtext) ====
Index: perl/ext/Devel/PPPort/Changes
--- perl/ext/Devel/PPPort/Changes#49~34669~ 2008-10-30 11:55:04.000000000
-0700
+++ perl/ext/Devel/PPPort/Changes 2008-10-31 00:23:54.000000000 -0700
@@ -1,3 +1,8 @@
+3.14_05 - 2008-10-31
+
+ * fix stupid bugs in pv_pretty tests (only the
+ tests were broken, ppport.h was find)
+
3.14_04 - 2008-10-30
* added support for the following API
==== //depot/perl/ext/Devel/PPPort/PPPort_pm.PL#43 (text) ====
Index: perl/ext/Devel/PPPort/PPPort_pm.PL
--- perl/ext/Devel/PPPort/PPPort_pm.PL#42~34669~ 2008-10-30
11:55:04.000000000 -0700
+++ perl/ext/Devel/PPPort/PPPort_pm.PL 2008-10-31 00:23:54.000000000 -0700
@@ -535,7 +535,7 @@
use strict;
use vars qw($VERSION $data);
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14_04 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14_05 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
sub _init_data
{
==== //depot/perl/ext/Devel/PPPort/parts/inc/pv_tools#2 (text) ====
Index: perl/ext/Devel/PPPort/parts/inc/pv_tools
--- perl/ext/Devel/PPPort/parts/inc/pv_tools#1~34669~ 2008-10-30
11:55:04.000000000 -0700
+++ perl/ext/Devel/PPPort/parts/inc/pv_tools 2008-10-31 00:23:54.000000000
-0700
@@ -1,8 +1,8 @@
################################################################################
##
-## $Revision: 3 $
+## $Revision: 4 $
## $Author: mhx $
-## $Date: 2008/10/30 19:42:36 +0100 $
+## $Date: 2008/10/31 08:15:55 +0100 $
##
################################################################################
##
@@ -231,11 +231,11 @@
ST(3) = sv_2mortal(newSVpv(rv, 0));
ST(4) = sv_newmortal();
rv = pv_pretty(ST(4), "N\303\275 Batter\303\255",
- 16, 20, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT);
+ 12, 20, NULL, NULL, PERL_PV_ESCAPE_UNI_DETECT);
ST(5) = sv_2mortal(newSVpv(rv, 0));
ST(6) = sv_newmortal();
rv = pv_pretty(ST(6), "\303\201g\303\246tis Byrjun",
- 16, 20, NULL, NULL,
PERL_PV_ESCAPE_UNI_DETECT|PERL_PV_PRETTY_ELLIPSES);
+ 15, 18, NULL, NULL,
PERL_PV_ESCAPE_UNI_DETECT|PERL_PV_PRETTY_ELLIPSES);
ST(7) = sv_2mortal(newSVpv(rv, 0));
XSRETURN(8);
@@ -268,9 +268,9 @@
ok($r[2], $r[3]);
ok($r[2], '<leftpv_p\retty\nright>');
ok($r[4], $r[5]);
-ok($r[4], $uni ? 'N\375 Batter\355\0' : 'N\303\275 Batter\303');
+ok($r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
ok($r[6], $r[7]);
-ok($r[6], $uni ? '\\301g\\346tis Byrjun...' : '\303\201g\303\246tis...');
+ok($r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
@r = &Devel::PPPort::pv_display();
ok($r[0], $r[1]);
==== //depot/perl/ext/Devel/PPPort/soak#38 (text) ====
Index: perl/ext/Devel/PPPort/soak
--- perl/ext/Devel/PPPort/soak#37~34669~ 2008-10-30 11:55:04.000000000
-0700
+++ perl/ext/Devel/PPPort/soak 2008-10-31 00:23:54.000000000 -0700
@@ -33,7 +33,7 @@
use List::Util qw(max);
use Config;
-my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14_04 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+my $VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.14_05 $' =~
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
$| = 1;
my %OPT = (
==== //depot/perl/ext/Devel/PPPort/t/pv_tools.t#2 (text) ====
Index: perl/ext/Devel/PPPort/t/pv_tools.t
--- perl/ext/Devel/PPPort/t/pv_tools.t#1~34669~ 2008-10-30 11:55:04.000000000
-0700
+++ perl/ext/Devel/PPPort/t/pv_tools.t 2008-10-31 00:23:54.000000000 -0700
@@ -61,9 +61,9 @@
ok($r[2], $r[3]);
ok($r[2], '<leftpv_p\retty\nright>');
ok($r[4], $r[5]);
-ok($r[4], $uni ? 'N\375 Batter\355\0' : 'N\303\275 Batter\303');
+ok($r[4], $uni ? 'N\375 Batter\355' : 'N\303\275 Batter\303');
ok($r[6], $r[7]);
-ok($r[6], $uni ? '\\301g\\346tis Byrjun...' : '\303\201g\303\246tis...');
+ok($r[6], $uni ? '\301g\346tis Byrju...' : '\303\201g\303\246t...');
@r = &Devel::PPPort::pv_display();
ok($r[0], $r[1]);
End of Patch.
