view release on metacpan or  search on metacpan

bin/defrag  view on Meta::CPAN

   truncate $dst, $size
      or die "$dst: unable to truncate copy to correct size\n";

   (stat $dst_fh)[7] == $size
      or die "$dst: file size mismatch\n";

   close $dst_fh
      or $s_skipped++, goto bailout;

   chown $uid, $gid, $dst
      or $s_skipped++, goto bailout;

   chmod $mode, $dst
      or $s_skipped++, goto bailout;

   utime $atime, $mtime, $dst
      or $s_skipped++, goto bailout;

   my $token = $opt_nofreeze || Sys::FreezeThaw::freeze;