204 |
return -ENOSYS() unless open($fh,'+<',$pending->{$file}->{path}); |
return -ENOSYS() unless open($fh,'+<',$pending->{$file}->{path}); |
205 |
if($rv = seek( $fh ,$off,SEEK_SET)) { |
if($rv = seek( $fh ,$off,SEEK_SET)) { |
206 |
$rv = print( $fh $buf ); |
$rv = print( $fh $buf ); |
207 |
warn "## ", $pending->{$file}->{path}, " $off ",length( $buf ), "\n" if $debug; |
warn "## write ", $pending->{$file}->{path}, " $off ",length( $buf ), "\n" if $debug; |
208 |
} |
} |
209 |
$rv = -ENOSYS() unless $rv; |
$rv = -ENOSYS() unless $rv; |
210 |
close($fh); |
close($fh); |