Change 33230 by [EMAIL PROTECTED] on 2008/02/04 10:01:33
Subject: [PATCH] fix B::Debug pmnext
From: "Reini Urban" <[EMAIL PROTECTED]>
Date: Sat, 2 Feb 2008 16:33:52 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/B/B.pm#88 edit
... //depot/perl/ext/B/B/Debug.pm#31 edit
Differences ...
==== //depot/perl/ext/B/B.pm#88 (text) ====
Index: perl/ext/B/B.pm
--- perl/ext/B/B.pm#87~32987~ 2008-01-17 00:17:11.000000000 -0800
+++ perl/ext/B/B.pm 2008-02-04 02:01:33.000000000 -0800
@@ -1097,12 +1097,16 @@
=item pmnext
+Only up to Perl 5.9.4
+
=item pmregexp
=item pmflags
=item extflags
+Since Perl 5.9.5
+
=item precomp
=item pmoffset
==== //depot/perl/ext/B/B/Debug.pm#31 (text) ====
Index: perl/ext/B/B/Debug.pm
--- perl/ext/B/B/Debug.pm#30~31461~ 2007-06-25 04:41:35.000000000 -0700
+++ perl/ext/B/B/Debug.pm 2008-02-04 02:01:33.000000000 -0800
@@ -72,7 +72,7 @@
$op->B::LISTOP::debug();
printf "\top_pmreplroot\t0x%x\n", ${$op->pmreplroot};
printf "\top_pmreplstart\t0x%x\n", ${$op->pmreplstart};
- printf "\top_pmnext\t0x%x\n", ${$op->pmnext};
+ printf "\top_pmnext\t0x%x\n", ${$op->pmnext} if $] < 5.009005;
printf "\top_pmregexp->precomp\t%s\n", cstring($op->precomp);
printf "\top_pmflags\t0x%x\n", $op->pmflags;
$op->pmreplroot->debug;
End of Patch.
