From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 07:53:09 +0000 (+0000)
Subject: B::Bytecode tweaks (from Simon Cozens <simon@brecon.co.uk>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc13eec94a8107f0843a053db152fc38eefaa316;p=p5sagit%2Fp5-mst-13.2.git

B::Bytecode tweaks (from Simon Cozens <simon@brecon.co.uk>)

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

diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm
index 27003b6..941a818 100644
--- a/ext/B/B/Bytecode.pm
+++ b/ext/B/B/Bytecode.pm
@@ -654,8 +654,8 @@ sub bytecompile_main {
     warn "done main program, now walking symbol table\n" if $debug_bc;
     my ($pack, %exclude);
     foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS strict vars
-		      FileHandle Exporter Carp UNIVERSAL IO Fcntl Symbol
-		      SelectSaver blib Cwd))
+		      FileHandle Exporter Carp UNIVERSAL IO Fcntl Symbol warnings
+		      attributes File::Spec SelectSaver blib Cwd))
     {
 	$exclude{$pack."::"} = 1;
     }
diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm
index d054a2d..212532b 100644
--- a/ext/B/B/Disassembler.pm
+++ b/ext/B/B/Disassembler.pm
@@ -31,6 +31,13 @@ sub GET_U16 {
     return unpack("n", $str);
 }
 
+sub GET_NV {
+    my $fh = shift;
+    my $str = $fh->readn(8);
+    croak "reached EOF while reading NV" unless length($str) == 8;
+    return unpack("N", $str);
+}
+
 sub GET_U32 {
     my $fh = shift;
     my $str = $fh->readn(4);