From: David Dyck <david.dyck@fluke.com>
Date: Thu, 24 May 2001 01:42:09 +0000 (-0700)
Subject: Re: [ID 20010524.001] perl5db.pl   x @INC  doesn't work like it used to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62769f135cbd1da2f2afc68abdb050c7e85ca0c3;p=p5sagit%2Fp5-mst-13.2.git

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