diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2001-11-29 16:48:15 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-29 13:47:07 +0000 |
| commit | d2bc402e011e53ceb88e1e15628b986d2ca5665f (patch) | |
| tree | 34927ca945071eed1d42b7befb56940b2531efe5 /ext/B/O.pm | |
| parent | f8b4d74fa5fd7bb98a4694c41f28371fcf64a67a (diff) | |
| download | perl-d2bc402e011e53ceb88e1e15628b986d2ca5665f.tar.gz | |
deparse -wl0 -i.bak
Message-ID: <20011129154815.C25817@rafael>
p4raw-id: //depot/perl@13359
Diffstat (limited to 'ext/B/O.pm')
| -rw-r--r-- | ext/B/O.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/O.pm b/ext/B/O.pm index 50a445cf49..af9885bf65 100644 --- a/ext/B/O.pm +++ b/ext/B/O.pm @@ -42,7 +42,8 @@ sub import { die $compilesub; } - local ($\,$",$,) = (undef,' ',''); + local $savebackslash = $\; + local ($\,$",$,) = (undef,' ',''); &$compilesub(); close STDERR if $veryquiet; |