diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-05-27 20:56:36 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-28 13:21:50 +0000 |
| commit | cf4a30caa768a87825eb803c6f442667207dad43 (patch) | |
| tree | 35289582a0ab067634a370cb4e73fca29446b015 /utils | |
| parent | eee3200793bb3b1cb7b4101c338de67e73b8e4d1 (diff) | |
| download | perl-cf4a30caa768a87825eb803c6f442667207dad43.tar.gz | |
RE: [ID 20010528.002] dprofpp: "-R" does not work
Message-ID: <NAEKLNAAHLMBPMPNBMLEEEFADFAA.rs@crystalflame.net>
p4raw-id: //depot/perl@10242
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/dprofpp.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index b1379bf7e3..8f6afe46df 100644 --- a/utils/dprofpp.PL +++ b/utils/dprofpp.PL @@ -693,7 +693,7 @@ sub parsestack { chop; if (/^&/) { ($dir, $id, $pack, $name) = split; - if ($opt_R and ($name =~ /::(__ANON_|END)$/)) { + if ($opt_R and ($name =~ /(?:::)?(__ANON__|END)$/)) { $name .= "($id)"; } $cv_hash{$id} = "$pack\::$name"; @@ -830,7 +830,7 @@ sub exitstamp { die "Garbled profile, missing an enter time stamp"; } if( $x->[0] ne $name and $opt_G and ($name =~ /$opt_G/)){ - if ($x->[0] =~ /::AUTOLOAD$/) { + if ($x->[0] =~ /(?:::)?AUTOLOAD$/) { if ($opt_A) { $name = $x->[0]; } |