X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fdprofpp.PL;h=8f6afe46df48b199821edbae7fa4d400adc7fd51;hb=1ed8eac0dfbbdc6acb022ff1733a2473c102328b;hp=b1379bf7e3737df39d132debe3ecd7bb2fd846d5;hpb=b331eff569892bc48ecf1dfb07fd993b8b19c1a4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index b1379bf..8f6afe4 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];
 	    }