automake
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: build question


From: Akim Demaille
Subject: Re: build question
Date: Wed, 13 Feb 2002 13:49:00 +0100
User-agent: Gnus/5.090006 (Oort Gnus v0.06) XEmacs/21.4 (Common Lisp, i386-debian-linux)

| 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).



reply via email to

[Prev in Thread] Current Thread [Next in Thread]