diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1996-09-30 00:34:58 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-30 00:34:58 -0400 |
| commit | b9b857e22d653acb949069d66ea7b0b68d10024d (patch) | |
| tree | 9c6c81bffc3f1f5fdd4e8e9c6aa97c218d0a83fe /lib | |
| parent | def3c1025d0dad82e1d840f9be58127695f1bd62 (diff) | |
| download | perl-b9b857e22d653acb949069d66ea7b0b68d10024d.tar.gz | |
Re: dereferencing a hash from the debugger won't work
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index c985f64890..a57475ce06 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -797,8 +797,8 @@ sub DB { unless $hist[$i] =~ /^.?$/; }; next CMD; }; - $cmd =~ s/^p$/print \$DB::OUT \$_/; - $cmd =~ s/^p\b/print \$DB::OUT /; + $cmd =~ s/^p$/print {\$DB::OUT} \$_/; + $cmd =~ s/^p\b/print {\$DB::OUT} /; $cmd =~ /^=/ && do { if (local($k,$v) = ($cmd =~ /^=\s*(\S+)\s+(.*)/)) { $alias{$k}="s~$k~$v~"; @@ -1328,7 +1328,7 @@ $psh$psh cmd Run cmd in a subprocess (reads from DB::IN, writes to DB::OUT)" $psh [cmd] Run cmd in subshell (forces \"\$SHELL -c 'cmd'\")." ) . " See 'O shellBang' too. H -number Display last number commands (default all). -p expr Same as \"print DB::OUT expr\" in current package. +p expr Same as \"print {DB::OUT} expr\" in current package. |dbcmd Run debugger command, piping DB::OUT to current pager. ||dbcmd Same as |dbcmd but DB::OUT is temporarilly select()ed as well. \= [alias value] Define a command alias, or list current aliases. |