diff options
| author | Peter Scott <Peter@PSDT.com> | 2000-08-10 01:23:27 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-11 01:26:39 +0000 |
| commit | 7bec2740dff5dfb43885a1dfa1fb507020a057d1 (patch) | |
| tree | abe7dbe9a2f38f9e00dec013438f8e9f356a9c3f /lib/perl5db.pl | |
| parent | fbe7c04a1ad17b7e362c900e10b3453e4c913e2a (diff) | |
| download | perl-7bec2740dff5dfb43885a1dfa1fb507020a057d1.tar.gz | |
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
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index b8ac49018c..9629121fa2 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; |