diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-11-29 10:14:24 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-11-30 05:31:00 +1200 |
| commit | eff9c6e2f5bda63e4dc69fc15e237a9843954369 (patch) | |
| tree | 40fb9241409b585f85ebd50484323f5ab59fb0a9 /lib/diagnostics.pm | |
| parent | 5a556d178903eb73ed2e240fee34fcfc607b2bb3 (diff) | |
| download | perl-eff9c6e2f5bda63e4dc69fc15e237a9843954369.tar.gz | |
Diagnostic cleanup
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 02fae7aa9f..c3e5b93f20 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -334,7 +334,8 @@ EOFUNC $transmo .= " m{^\Q$header\E} && return 1;\n"; } - print STDERR "Already saw $header" if $msg{$header}; + print STDERR "$WHOAMI: Duplicate entry: \"$header\"\n" + if $msg{$header}; $msg{$header} = ''; } |