diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-08 21:20:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-08 21:20:26 +0000 |
| commit | e81465beff59e6c9907613fe00ebce59d81fb1e8 (patch) | |
| tree | 4c6010205cc62e3f79dff3aa7dc7ac005ccccab8 /lib/perl5db.pl | |
| parent | 3236f110cb098d9081961e6c9f4585ecaf729cc5 (diff) | |
| download | perl-e81465beff59e6c9907613fe00ebce59d81fb1e8.tar.gz | |
do $file; won't propagate errors from die, as do is an implicit eval.
So need to propagate errors with $@.
p4raw-id: //depot/perl@29723
Diffstat (limited to 'lib/perl5db.pl')
| -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 e031ac2495..1b9f376a66 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -2407,7 +2407,7 @@ Uses C<dumpvar.pl> to dump out the current values for selected variables. @vars = split( ' ', $2 ); # If main::dumpvar isn't here, get it. - do 'dumpvar.pl' unless defined &main::dumpvar; + do 'dumpvar.pl' || die $@ unless defined &main::dumpvar; if ( defined &main::dumpvar ) { # We got it. Turn off subroutine entry/exit messages @@ -2606,7 +2606,7 @@ above the current one and then displays then using C<dumpvar.pl>. and next CMD; # Load up dumpvar if we don't have it. If we can, that is. - do 'dumpvar.pl' unless defined &main::dumpvar; + do 'dumpvar.pl' || die $@ unless defined &main::dumpvar; defined &main::dumpvar or print $OUT "dumpvar.pl not available.\n" and next CMD; @@ -5584,7 +5584,7 @@ sub dumpit { # Load dumpvar.pl unless we've already got the sub we need from it. unless ( defined &main::dumpValue ) { - do 'dumpvar.pl'; + do 'dumpvar.pl' or die $@; } # If the load succeeded (or we already had dumpvalue()), go ahead |