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

[jesse at bestpractical.com]

Author: jesse
Date: Wed Mar  9 03:38:05 2005
New Revision: 2325

Added:
   Devel-CallTrace/lib/
   Devel-CallTrace/lib/Devel/
Modified:
   Devel-CallTrace/   (props changed)
   Devel-CallTrace/CallTrace.pm
Log:
 r6634 at hualien:  jesse | 2005-03-09 01:44:38 -0500
 checkpointCallTrace.pm


Modified: Devel-CallTrace/CallTrace.pm
==============================================================================
--- Devel-CallTrace/CallTrace.pm	(original)
+++ Devel-CallTrace/CallTrace.pm	Wed Mar  9 03:38:05 2005
@@ -36,11 +36,14 @@
 
 
 package DB;
+
+our $CALL_DEPTH;
+
 sub sub {
-    $DB::depth++;
-    warn " " x $DB::depth . $DB::sub ."\n";
-    &{$DB::sub}(@_);
-    $DB::depth--;
+    local $DB::CALL_DEPTH;
+    $DB::CALL_DEPTH++;
+    warn " " x $DB::CALL_DEPTH . $DB::sub ."\n";
+    return(&{$DB::sub}(@_));
 }