From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 19 Oct 2000 02:22:40 +0000 (+0000)
Subject: Fix of sorts for bug id 20000901.092.  There seems to be no trace
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e1c9671e8cfa857af192c614a912a1db14856a4;p=p5sagit%2Fp5-mst-13.2.git

Fix of sorts for bug id 20000901.092.  There seems to be no trace
of a 'pmshort' anywhere in the B, so the offending line was simply
removed.

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

diff --git a/ext/B/B/Debug.pm b/ext/B/B/Debug.pm
index 3e212e2..1327591 100644
--- a/ext/B/B/Debug.pm
+++ b/ext/B/B/Debug.pm
@@ -53,7 +53,6 @@ sub B::PMOP::debug {
     printf "\top_pmnext\t0x%x\n", ${$op->pmnext};
     printf "\top_pmregexp->precomp\t%s\n", cstring($op->precomp);
     printf "\top_pmflags\t0x%x\n", $op->pmflags;
-    $op->pmshort->debug;
     $op->pmreplroot->debug;
 }