* lib/Autom4te/XFile.pm (open): Simplified the error message (we

  already have $file).  Set output files to binary mode (helps avoid
  CR issues on DOSish systems).

diff --git a/ChangeLog b/ChangeLog
index 1346965687c0c1d7ef14a5a65136230d7b4a0e16..3bc1f12d532cfc067b174578e8a99a349fe50ef5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-20  Tim Van Holder  <tim.van.holder@pandora.be>
+
+       * lib/Autom4te/XFile.pm (open): Simplified the error message (we
+       already have $file).  Set output files to binary mode (helps avoid
+       CR issues on DOSish systems).
+
 2001-09-19  Akim Demaille  <akim@epita.fr>
 
        * lib/autotest/general.m4: Englishoes.

diff --git a/lib/Autom4te/XFile.pm b/lib/Autom4te/XFile.pm
index f1eb19c706f45cdc051c8ad0f8b3148a290c7e0f..faf849558a593c89777a612369a544d446b35290 100644 (file)
--- a/lib/Autom4te/XFile.pm
+++ b/lib/Autom4te/XFile.pm
@@ -133,9 +133,9 @@ sub open
   if (!$fh->SUPER::open (@_))
     {
       my $me = basename ($0);
-      my $file = ${*$fh}{'autom4te_xfile_file'};
       croak "$me: cannot open $file: $!\n";
     }
+  binmode $fh if $file =~ /^\s*>/;
 }
 
 ################################################