From: Reini Urban <rurban@x-ray.at>
Date: Sat, 2 Feb 2008 16:33:52 +0000 (+0100)
Subject: fix B::Debug pmnext
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=196d796ca0dfeb0d87fe67febfcb650e409449e5;p=p5sagit%2Fp5-mst-13.2.git

fix B::Debug pmnext
From: "Reini Urban" <rurban@x-ray.at>
Message-ID: <6910a60802020733u7817a55dm6f5e213625063204@mail.gmail.com>

p4raw-id: //depot/perl@33230
---

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 0f77a3b..a212ae1 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -1097,12 +1097,16 @@ This returns the op description from the global C PL_op_desc array
 
 =item pmnext
 
+Only up to Perl 5.9.4
+
 =item pmregexp
 
 =item pmflags
 
 =item extflags
 
+Since Perl 5.9.5
+
 =item precomp
 
 =item pmoffset
diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index 53b6e3a..179b4c0 100644
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -72,7 +72,7 @@ sub B::PMOP::debug {
     $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;