From: Andreas Koenig <a.koenig@mind.de>
Date: Tue, 15 Apr 1997 18:14:01 +0000 (+0200)
Subject: diagnostics: $/ gotcha
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5025c45a2e969afb692d1ff0cd507cc26230784b;p=p5sagit%2Fp5-mst-13.2.git

diagnostics: $/ gotcha

diagnostics does not localize $\ when it comes to printing.

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

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index a858a64..10016f3 100644
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -451,6 +451,7 @@ sub death_trap {
 
 sub splainthis {
     local $_ = shift;
+    local $\;
     ### &finish_compilation unless %msg;
     s/\.?\n+$//;
     my $orig = $_;