| Index: lib/Automake/XFile.pm
| ===================================================================
| RCS file: /cvs/automake/automake/lib/Automake/XFile.pm,v
| retrieving revision 1.1
| diff -u -r1.1 XFile.pm
| --- lib/Automake/XFile.pm 2001/10/02 17:17:45 1.1
| +++ lib/Automake/XFile.pm 2002/02/12 21:21:25
| @@ -59,7 +59,8 @@
| =head1 DESCRIPTION
|
| C<Automake::XFile> inherits from C<IO::File>. It provides dying
| -version of the methods C<open>, C<new>, and C<close>.
| +version of the methods C<open>, C<new>, and C<close>. It also
| +overrides the C<getline> method to translate C<\r\n> to C<\n>.
|
| =head1 SEE ALSO
|
| @@ -151,6 +152,21 @@
| my $file = ${*$fh}{'autom4te_xfile_file'};
| croak "$me: cannot close $file: $!\n";
| }
| +}
| +
| +################################################
| +## Getline
| +##
| +
| +# Some Win32/perl installations fail to translate \r\n to \n on input
| +# so we do that here.
| +sub getline
| +{
| + local $_ = $_[0]->SUPER::getline;
| + # Perform a _global_ replacement: $_ may can contains many lines
| + # in slurp mode ($/ = undef).
| + s/\015\012/\n/gs if defined $_;
| + return $_;
| }
|
| 1;
Once you installed it, please, make sure you update the version
number, and backport it to Autoconf (which is the main repo. BTW, if
the fact that Autoconf is the master is not properly displayed, please
do so).
