From: Nathan Torkington <gnat@frii.com>
Date: Sun, 1 Aug 1999 11:23:35 +0000 (-0600)
Subject: ext/B/B/Disassembler.pm patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a9a9fdd7274c13fad954d576fb696d66ae6fa435;p=p5sagit%2Fp5-mst-13.2.git

ext/B/B/Disassembler.pm patch

	Message-ID: <14244.33431.739419.806927@localhost.frii.com>

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

diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm
index 4a008a3..d054a2d 100644
--- a/ext/B/B/Disassembler.pm
+++ b/ext/B/B/Disassembler.pm
@@ -52,6 +52,20 @@ sub GET_objindex {
     return unpack("N", $str);
 }
 
+sub GET_opindex { 
+    my $fh = shift;
+    my $str = $fh->readn(4);
+    croak "reached EOF while reading opindex" unless length($str) == 4;
+    return unpack("N", $str);
+}
+
+sub GET_svindex { 
+    my $fh = shift;
+    my $str = $fh->readn(4);
+    croak "reached EOF while reading svindex" unless length($str) == 4;
+    return unpack("N", $str);
+}
+
 sub GET_strconst {
     my $fh = shift;
     my ($str, $c);