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 /ext/NDBM_File | |
| 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 'ext/NDBM_File')
| -rw-r--r-- | ext/NDBM_File/hints/gnukfreebsd.pl | 2 | ||||
| -rw-r--r-- | ext/NDBM_File/hints/gnuknetbsd.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/NDBM_File/hints/gnukfreebsd.pl b/ext/NDBM_File/hints/gnukfreebsd.pl index 6e37b40270..db63567966 100644 --- a/ext/NDBM_File/hints/gnukfreebsd.pl +++ b/ext/NDBM_File/hints/gnukfreebsd.pl @@ -1 +1 @@ -do './hints/linux.pl'; +do './hints/linux.pl' or die $@; diff --git a/ext/NDBM_File/hints/gnuknetbsd.pl b/ext/NDBM_File/hints/gnuknetbsd.pl index 6e37b40270..db63567966 100644 --- a/ext/NDBM_File/hints/gnuknetbsd.pl +++ b/ext/NDBM_File/hints/gnuknetbsd.pl @@ -1 +1 @@ -do './hints/linux.pl'; +do './hints/linux.pl' or die $@; |