From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 17 May 2005 11:28:18 +0000 (+0100)
Subject: B::Disassembler.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37ac43f5c5f6dad25a2bfe9c2dd1d819478704a5;p=p5sagit%2Fp5-mst-13.2.git

B::Disassembler.pm
Message-ID: <20050517102817.GD94420@plum.flirble.org>

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

diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm
index c64b973..e1993aa 100644
--- a/ext/B/B/Disassembler.pm
+++ b/ext/B/B/Disassembler.pm
@@ -5,7 +5,7 @@
 #      You may distribute under the terms of either the GNU General Public
 #      License or the Artistic License, as specified in the README file.
 
-$B::Disassembler::VERSION = '1.04';
+$B::Disassembler::VERSION = '1.05';
 
 package B::Disassembler::BytecodeStream;
 
@@ -154,12 +154,12 @@ sub GET_IV {
     $Config{ivsize} == 4 ? &GET_I32 : &GET_IV64;
 }
 
-sub B::::GET_PADOFFSET {
-    $Config{ptrsize} == 8 ? &B::GET_IV64 : &B::GET_U32;
+sub GET_PADOFFSET {
+    $Config{ptrsize} == 8 ? &GET_IV64 : &GET_U32;
 }
 
-sub B::::GET_long {
-    $Config{longsize} == 8 ? &B::GET_IV64 : &B::GET_U32;
+sub GET_long {
+    $Config{longsize} == 8 ? &GET_IV64 : &GET_U32;
 }