diff options
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index ee4beeb510..2f9e197dac 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -7728,9 +7728,11 @@ sub LineInfo { # If this is a pipe, the stream points to a slave editor. $slave_editor = ( $stream =~ /^\|/ ); + my $new_lineinfo_fh; # Open it up and unbuffer it. - open( LINEINFO, $stream ) || _db_warn("Cannot open '$stream' for write"); - $LINEINFO = \*LINEINFO; + open ($new_lineinfo_fh , $stream ) + or _db_warn("Cannot open '$stream' for write"); + $LINEINFO = $new_lineinfo_fh; $LINEINFO->autoflush(1); } |