add some basic tracing using the new deparser

[scpubgit/DX.git] / lib / DX / ShellState.pm

diff --git a/lib/DX/ShellState.pm b/lib/DX/ShellState.pm
index 118b7cf..8ddaab0 100644 (file)
--- a/lib/DX/ShellState.pm
+++ b/lib/DX/ShellState.pm
@@ -27,7 +27,7 @@ sub trace_sub {
     return unless $self->trace_these->{$part};
     my $dp = deparse($thing);
     $dp =~ s/\n$//;
-    warn "${tag}: ${dp}\n";
+    warn "${dp}\n";
   }
 }