diff options
| author | Daniel S. Lewart <lewart@uiuc.edu> | 2001-05-24 00:05:22 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-24 12:25:12 +0000 |
| commit | 8b17c70d6edaa9df8634b32c494a8f8cbf472a2e (patch) | |
| tree | 08f082c6b48bce1524bc93fce5ac7ff73cecf918 /lib/perl5db.pl | |
| parent | 86764b0b8fb867db099ac352e7ba91dbd1d06119 (diff) | |
| download | perl-8b17c70d6edaa9df8634b32c494a8f8cbf472a2e.tar.gz | |
lib/dumpvar.pl, lib/perl5db.pl - fix warnings
Message-ID: <20010524050522.A18997@staff1.cso.uiuc.edu>
p4raw-id: //depot/perl@10191
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 98fb50d596..1e1b163b59 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.10; +$VERSION = 1.12; $header = "perl5db.pl version $VERSION"; # @@ -245,6 +245,13 @@ $header = "perl5db.pl version $VERSION"; # + Fixed warnings generated by "perl -dWe 42" # + Corrected spelling errors # + Squeezed Help (h) output into 80 columns +# +# Changes: 1.11: May 24, 2001 David Dyck <dcd@tc.fluke.com> +# + Made "x @INC" work like it used to +# +# Changes: 1.12: May 24, 2001 Daniel Lewart <d-lewart@uiuc.edu> +# + Fixed warnings generated by "O" (Show debugger options) +# + Fixed warnings generated by "p 42" (Print expression) #################################################################### @@ -1724,10 +1731,9 @@ sub eval { eval { &DB::save }; if ($at) { print $OUT $at; - } elsif ($onetimeDump eq 'dump') { - dumpit($OUT, \@res); - } elsif ($onetimeDump eq 'methods') { - methods($res[0]); + } elsif ($onetimeDump) { + dumpit($OUT, \@res) if $onetimeDump eq 'dump'; + methods($res[0]) if $onetimeDump eq 'methods'; } @res; } @@ -2128,6 +2134,7 @@ sub option_val { } else { $val = $option{$opt}; } + $val = $default unless defined $val; $val } |