diff options
| -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]; } |