Re: [ID 20010524.001] perl5db.pl x @INC doesn't work like it used to

[p5sagit/p5-mst-13.2.git] / lib / perl5db.pl

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 7d31ade..98fb50d 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1722,7 +1722,7 @@ sub eval {
     my $at = $@;
     local $saved[0];           # Preserve the old value of $@
     eval { &DB::save };
-    if (defined($at)) {
+    if ($at) {
        print $OUT $at;
     } elsif ($onetimeDump eq 'dump') {
        dumpit($OUT, \@res);