* bin/autom4te.in (Request::load): Correctly test for "do" read

failure.

diff --git a/ChangeLog b/ChangeLog
index 2b7f26542e57831c505c95a663e2df50da833768..5f77ebd1061174d5aa80f04bc35fe28b694f4b5b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-29  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+       * bin/autom4te.in (Request::load): Correctly test for "do" read
+       failure.
+
 2002-08-29  Akim Demaille  <akim@epita.fr>
 
        * lib/Autom4te/General.pm (&xqx): New.

diff --git a/bin/autom4te.in b/bin/autom4te.in
index 75174f44a3eb6486d52ce5b9a67f070261d8c594..26b68e29fc079c31a469ff9c03470bb0ecc1e765 100644 (file)
--- a/bin/autom4te.in
+++ b/bin/autom4te.in
@@ -214,7 +214,7 @@ sub load
   (my $return) = do "$file";
 
   croak "$me: cannot parse $file: $@\n" if $@;
-  croak "$me: cannot do $file: $!\n"    if $!;
+  croak "$me: cannot do $file: $!\n"    unless defined $return;
   croak "$me: cannot run $file\n"       unless $return;
 }