diagnostics: $/ gotcha
authorAndreas Koenig <a.koenig@mind.de>
Tue, 15 Apr 1997 18:14:01 +0000 (20:14 +0200)
committerChip Salzenberg <chip@atlantic.net>
Mon, 14 Apr 1997 12:00:00 +0000 (00:00 +1200)
diagnostics does not localize $\ when it comes to printing.

p5p-msgid: 199704151814.UAA03404@anna.in-berlin.de

lib/diagnostics.pm

index a858a64..10016f3 100644 (file)
@@ -451,6 +451,7 @@ sub death_trap {
 
 sub splainthis {
     local $_ = shift;
+    local $\;
     ### &finish_compilation unless %msg;
     s/\.?\n+$//;
     my $orig = $_;