diagnostics: $/ gotcha
[perl.git] / 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 = $_;