From: Peter Scott <Peter@PSDT.com>
Date: Thu, 10 Aug 2000 08:23:27 +0000 (-0700)
Subject: Re: [ID 20000809.006] Debugger lost the ability to see $1 et al
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=157b066d3e26f62c196b73acfe1e68a07ecbf2dd;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20000809.006] Debugger lost the ability to see $1 et al
Message-Id: <4.3.2.7.2.20000810081749.00aa92c0@peterscott.com>

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index b8ac490..9629121 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1511,6 +1511,7 @@ sub eval {
 	local $otrace = $trace;
 	local $osingle = $single;
 	local $od = $^D;
+	{ ($evalarg) = $evalarg =~ /(.*)/s; }
 	@res = eval "$usercontext $evalarg;\n"; # '\n' for nice recursive debug
 	$trace = $otrace;
 	$single = $osingle;