diff options
| author | Alexandre Duret-Lutz <adl@gnu.org> | 2003-09-13 21:54:26 +0000 |
|---|---|---|
| committer | Alexandre Duret-Lutz <adl@gnu.org> | 2003-09-13 21:54:26 +0000 |
| commit | 31e9e7bbc8162c96daafb3ee3372fda0cb4db606 (patch) | |
| tree | 0e37fb0766d1278d44225f748ad71605c22017e9 /lib/Automake | |
| parent | b02c8bffe7389114c8fc6c468685f67387e6f220 (diff) | |
| download | automake-31e9e7bbc8162c96daafb3ee3372fda0cb4db606.tar.gz | |
* Makefile.am (FETCHFILES, fetch): Do not fetch lib/Automake/XFile.pm
and lib/Automake/Struct.pm from Autoconf.
* lib/Automake/XFile.pm: Update comment, Automake is now
the master for this file. Cosmetic changes.
Diffstat (limited to 'lib/Automake')
| -rw-r--r-- | lib/Automake/XFile.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/Automake/XFile.pm b/lib/Automake/XFile.pm index 06bb55879..c2b3e63d4 100644 --- a/lib/Automake/XFile.pm +++ b/lib/Automake/XFile.pm @@ -18,8 +18,8 @@ # Written by Akim Demaille <akim@freefriends.org>. ############################################################### -# The main copy of this file is in Autoconf's CVS repository. # -# Updates should be sent to autoconf-patches@gnu.org. # +# The main copy of this file is in Automake's CVS repository. # +# Updates should be sent to automake-patches@gnu.org. # ############################################################### package Automake::XFile; @@ -33,7 +33,7 @@ Automake::XFile - supply object methods for filehandles with error handling use Automake::XFile; $fh = new Automake::XFile; - $fh->open("< file")) + $fh->open ("< file"); # No need to check $FH: we died if open failed. print <$fh>; $fh->close; @@ -50,12 +50,12 @@ Automake::XFile - supply object methods for filehandles with error handling print <$fh>; undef $fh; # automatically closes the file and checks for errors. - $fh = new Automake::XFile "file", O_WRONLY|O_APPEND; + $fh = new Automake::XFile "file", O_WRONLY | O_APPEND; # No need to check $FH: we died if new failed. print $fh "corge\n"; $pos = $fh->getpos; - $fh->setpos($pos); + $fh->setpos ($pos); undef $fh; # automatically closes the file and checks for errors. @@ -119,7 +119,7 @@ my $me = basename ($0); sub new { my $type = shift; - my $class = ref($type) || $type || "Automake::XFile"; + my $class = ref $type || $type || "Automake::XFile"; my $fh = $class->SUPER::new (); if (@_) { @@ -134,7 +134,7 @@ sub new sub open { - my ($fh) = shift; + my $fh = shift; my ($file) = @_; # WARNING: Gross hack: $FH is a typeglob: use its hash slot to store @@ -161,7 +161,7 @@ sub open sub close { - my ($fh) = shift; + my $fh = shift; if (!$fh->SUPER::close (@_)) { my $file = $fh->name; @@ -204,7 +204,7 @@ sub getlines sub name { - my ($fh) = shift; + my $fh = shift; return ${*$fh}{'autom4te_xfile_file'}; } @@ -229,7 +229,7 @@ sub lock sub seek { - my ($fh) = shift; + my $fh = shift; # Cannot use @_ here. if (!seek ($fh, $_[0], $_[1])) { |