[Rt-commit] r2531 - in Devel-CallTrace: . lib/Devel

[jesse at bestpractical.com]

Author: jesse
Date: Mon Mar 28 05:30:19 2005
New Revision: 2531

Modified:
   Devel-CallTrace/   (props changed)
   Devel-CallTrace/lib/Devel/CallTrace.pm
Log:
 r9488 at hualien:  jesse | 2005-03-21 16:42:50 +0800
 Except not for anonymous subs, which was what we wanted


Modified: Devel-CallTrace/lib/Devel/CallTrace.pm
==============================================================================
--- Devel-CallTrace/lib/Devel/CallTrace.pm	(original)
+++ Devel-CallTrace/lib/Devel/CallTrace.pm	Mon Mar 28 05:30:19 2005
@@ -134,7 +134,11 @@
     my $routine = shift;
     # print STDERR is safe. warn is not. calling any routine 
     # not defined from within the DB:: package will not work. (see perldebguts)
-    print STDERR " " x $depth . $DB::sub ."(".$DB::sub{$DB::sub}.")\n";
+    print STDERR " " x $depth . $DB::sub;
+    if (exists $DB::sub{$DB::sub}) {
+        print STDERR " ($DB::sub{$DB::sub})";
+    }
+    print "\n";
 }
 
 =head1 BUGS