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

[jesse at bestpractical.com]

Author: jesse
Date: Wed Mar  9 03:38:14 2005
New Revision: 2328

Modified:
   Devel-CallTrace/   (props changed)
   Devel-CallTrace/lib/Devel/CallTrace.pm
Log:
 r6637 at hualien:  jesse | 2005-03-09 03:37:46 -0500
 cleanup


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