view release on metacpan or  search on metacpan

magicrcs  view on Meta::CPAN

      die $msg;
    } else {
      warn $msg;
    }
  };
  my @stat=stat $path or (&$warn_or_die("Stat $path"), return);
  if ($opt_u or $opt_g) {
    my ($user, $group)=@stat[4, 5];
    $user=$opt_u if $opt_u;
    $group=$opt_g if $opt_g;
    chown $user, $group, $path or (&$warn_or_die("Chown $user.$group $path"), return);
    $discard{$path}{change}=time;
  }
  if ($mode) {
    use integer;
    my $omode=$stat[2] & 077777;
    if ($mode > 0) {
      $omode |= $mode;
    } else {
      $omode &= ~(-$mode);
    }