From e81465beff59e6c9907613fe00ebce59d81fb1e8 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 8 Jan 2007 21:20:26 +0000 Subject: 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 --- ext/NDBM_File/hints/gnukfreebsd.pl | 2 +- ext/NDBM_File/hints/gnuknetbsd.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'ext/NDBM_File') 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 $@; -- cgit v1.2.1