/[autoconf]/autoconf/lib/Autom4te/XFile.pm
ViewVC logotype

Diff of /autoconf/lib/Autom4te/XFile.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by akim, Tue May 6 08:51:22 2003 UTC revision 1.7 by adl, Wed May 7 06:51:25 2003 UTC
# Line 210  sub name Line 210  sub name
210    
211  sub lock  sub lock
212  {  {
213    use Fcntl qw(:DEFAULT :flock);    my ($fh, $mode) = @_;
214    my ($fh) = shift;    # Cannot use @_ here.
215    if (!flock ($fh, @_))    if (!flock ($fh, $mode))
216      {      {
217        my $file = $fh->name;        my $file = $fh->name;
218        croak "$me: cannot lock $file with @_: $!\n";        croak "$me: cannot lock $file with mode $mode: $!\n";
219      }      }
220  }  }
221    
# Line 240  sub seek Line 240  sub seek
240    
241  sub truncate  sub truncate
242  {  {
243    my ($fh) = shift;    my ($fh, $len) = @_;
244    if (!truncate ($fh, @_))    if (!truncate ($fh, $len))
245      {      {
246        my $file = $fh->name;        my $file = $fh->name;
247        croak "$me: cannot truncate $file with @_: $!\n";        croak "$me: cannot truncate $file at $len: $!\n";
248      }      }
249  }  }
250    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26