From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 30 Apr 2000 17:14:43 +0000 (+0000)
Subject: debugger stomps on $. (from M.J.T. Guy)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0c01eb4a69fb13dce36ec3b17c3ba06feb0d748b;p=p5sagit%2Fp5-mst-13.2.git

debugger stomps on $. (from M.J.T. Guy)

p4raw-id: //depot/perl@6023
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index f935e94..41430ac 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1698,8 +1698,6 @@ sub unbalanced {
 }
 
 sub gets {
-    local($.);
-    #<IN>;
     &readline("cont: ");
 }
 
@@ -1804,6 +1802,7 @@ EOP
 }
 
 sub readline {
+  local $.;
   if (@typeahead) {
     my $left = @typeahead;
     my $got = shift @typeahead;