Missing $ on return names.

gisle · Jan 2, 2009 · 8726d93 · 8726d93
1 parent 5ac96c6
commit 8726d93
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Data/Dump/Trace.pm b/lib/Data/Dump/Trace.pm
@@ -50,6 +50,7 @@ sub autowrap {
             $name = lc($class);
             $name =~ s/.*:://;
         }
+        $name = '$' . $name unless $name =~ /^\$/;
         $autowrap_class{$class} = $name;
     }
 }