Convert to a lexical file handle.

[perl5.git] / lib / perl5db.pl

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ee4beeb..2f9e197 100644 (file)
--- 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 =~ /^\|/ );
 
         # 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 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);
     }
 
         $LINEINFO->autoflush(1);
     }