This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20000809.006] Debugger lost the ability to see $1 et al
authorPeter Scott <Peter@PSDT.com>
Thu, 10 Aug 2000 08:23:27 +0000 (01:23 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 11 Aug 2000 01:26:39 +0000 (01:26 +0000)
Message-Id: <4.3.2.7.2.20000810081749.00aa92c0@peterscott.com>

p4raw-id: //depot/perl@6592

lib/perl5db.pl

index b8ac490..9629121 100644 (file)
@@ -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;