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 (file)
--- 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 (file)
--- 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;