diff --git a/lib/Data/Dump/Trace.pm b/lib/Data/Dump/Trace.pm index d5a62dc..7c60a2d 100644 --- 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; } }