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 (file)
--- 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 = $_;