From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 25 Aug 1999 16:19:58 +0000 (-0400)
Subject: Re: [PATCH 5.005_60] fix @DB::typeahead
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6657d1ba4710621ab81a7d6261844badc687513c;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH 5.005_60] fix @DB::typeahead

To: Mailing list Perl5 <perl5-porters@perl.org>
Message-ID: <19990825161958.A4658@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@4049
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 18d52dc..0eac573 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -2,7 +2,7 @@ package DB;
 
 # Debugger for Perl 5.00x; perl5db.pl patch level:
 
-$VERSION = 1.0402;
+$VERSION = 1.0403;
 $header = "perl5db.pl version $VERSION";
 
 # Enhanced by ilya@math.ohio-state.edu (Ilya Zakharevich)
@@ -478,7 +478,7 @@ EOP
 	  if $single & 4;
 	$start = $line;
 	$incr = -1;		# for backward motion.
-	@typeahead = @$pretype, @typeahead;
+	@typeahead = (@$pretype, @typeahead);
       CMD:
 	while (($term || &setterm),
 	       ($term_pid == $$ or &resetterm),