diff options
| author | Andreas Koenig <a.koenig@mind.de> | 1997-04-15 20:14:01 +0200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-15 00:00:00 +1200 |
| commit | 5025c45a2e969afb692d1ff0cd507cc26230784b (patch) | |
| tree | 71f8569ee97af8a5b32f93c45af11bfc76237071 | |
| parent | 43aed9eec6090217aefc504ab0c9986cea375b59 (diff) | |
| download | perl-5025c45a2e969afb692d1ff0cd507cc26230784b.tar.gz | |
diagnostics: $/ gotcha
diagnostics does not localize $\ when it comes to printing.
p5p-msgid: 199704151814.UAA03404@anna.in-berlin.de
| -rw-r--r-- | lib/diagnostics.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index a858a64ca7..10016f3bb7 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 = $_; |