diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-28 07:53:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-28 07:53:09 +0000 |
| commit | bc13eec94a8107f0843a053db152fc38eefaa316 (patch) | |
| tree | 5f6a2c679d536585e3b6e02d0cfe38ff8709e40e /ext/B | |
| parent | 47f9c88be9d598405922d17837ce4e9664e82b5a (diff) | |
| download | perl-bc13eec94a8107f0843a053db152fc38eefaa316.tar.gz | |
B::Bytecode tweaks (from Simon Cozens <simon@brecon.co.uk>)
p4raw-id: //depot/perl@5987
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Bytecode.pm | 4 | ||||
| -rw-r--r-- | ext/B/B/Disassembler.pm | 7 |
2 files changed, 9 insertions, 2 deletions
diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm index 27003b6bd0..941a818f6b 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 d054a2d164..212532b9ce 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); |