diff options
| author | Shlomi Fish <shlomif@shlomifish.org> | 2012-11-03 22:47:49 +0200 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:44 -0500 |
| commit | d7441b496a8641ea060919d018ac3117ef90b1f2 (patch) | |
| tree | 6b8b5538e1d53261ee718e1e6790f45b5c525d44 /lib | |
| parent | ae2f328f3e42597cc6e0c4375ede267237ba16f5 (diff) | |
| download | perl-d7441b496a8641ea060919d018ac3117ef90b1f2.tar.gz | |
Convert to a lexical file handle.
Diffstat (limited to 'lib')
| -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); } |