Upgrade to Devel::PPPort 3.14_05

p4raw-id: //depot/perl@34676

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index 7b985df..9b27100 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -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

diff --git a/ext/Devel/PPPort/PPPort_pm.PL b/ext/Devel/PPPort/PPPort_pm.PL
index 321b747..3eef5dd 100644 (file)
--- a/ext/Devel/PPPort/PPPort_pm.PL
+++ b/ext/Devel/PPPort/PPPort_pm.PL
@@ -535,7 +535,7 @@ package Devel::PPPort;
 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
 {

diff --git a/ext/Devel/PPPort/parts/inc/pv_tools b/ext/Devel/PPPort/parts/inc/pv_tools
index 8a31130..161a49b 100644 (file)
--- a/ext/Devel/PPPort/parts/inc/pv_tools
+++ b/ext/Devel/PPPort/parts/inc/pv_tools
@@ -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 @@ pv_pretty()
                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[0], "foobarbaz");
 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]);

diff --git a/ext/Devel/PPPort/soak b/ext/Devel/PPPort/soak
index 8e99759..b9a3c78 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.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 = (

diff --git a/ext/Devel/PPPort/t/pv_tools.t b/ext/Devel/PPPort/t/pv_tools.t
index 61b0f14..65164b0 100644 (file)
--- a/ext/Devel/PPPort/t/pv_tools.t
+++ b/ext/Devel/PPPort/t/pv_tools.t
@@ -61,9 +61,9 @@ ok($r[0], "foobarbaz");
 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]);