This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B::clearsym
authorDoug MacEachern <dougm@covalent.net>
Sun, 25 Jul 1999 15:49:00 +0000 (08:49 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 12 Sep 1999 17:04:11 +0000 (17:04 +0000)
Message-ID: <Pine.LNX.4.10.9907251538380.373-100000@mojo.eng.cp.net>

p4raw-id: //depot/perl@4129

ext/B/B.pm
ext/B/B/Bblock.pm
ext/B/B/Debug.pm
ext/B/B/Terse.pm

index e4730cd..2187e59 100644 (file)
@@ -107,6 +107,11 @@ sub timing_info {
 }
 
 my %symtable;
+
+sub clearsym {
+    %symtable = ();
+}
+
 sub savesym {
     my ($obj, $value) = @_;
 #    warn(sprintf("savesym: sym_%x => %s\n", $$obj, $value)); # debug
index d2ef78f..b914bc6 100644 (file)
@@ -129,6 +129,7 @@ sub B::PMOP::mark_if_leader {
 
 sub compile {
     my @options = @_;
+    B::clearsym();
     if (@options) {
        return sub {
            my $objname;
index 7563626..8910068 100644 (file)
@@ -247,6 +247,7 @@ sub B::SPECIAL::debug {
 
 sub compile {
     my $order = shift;
+    B::clearsym();
     if ($order eq "exec") {
         return sub { walkoptree_exec(main_start, "debug") }
     } else {
index 93757f3..35bf9b8 100644 (file)
@@ -17,6 +17,7 @@ sub terse {
 sub compile {
     my $order = shift;
     my @options = @_;
+    B::clearsym();
     if (@options) {
        return sub {
            my $objname;