From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Fri, 31 Oct 2008 07:23:54 +0000 (+0000)
Subject: Upgrade to Devel::PPPort 3.14_05
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7e2d8c7ee3fc7b6a5f72d396258e399e0b648e6;p=p5sagit%2Fp5-mst-13.2.git

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