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

Message-ID: <Pine.LNX.4.33.0105240134580.5179-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@10190

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);