App-powerdiff
view release on metacpan or search on metacpan
script/powerdiff view on Meta::CPAN
}
sub change_mode {
my ($dir, $name, $m1, $m2) = @_;
my $pathname = quote_path("$dir/$name");
if (($m1 & PERM_ALL) != ($m2 & PERM_ALL)) {
my $prev = sprintf '%04o', $m1 & PERM_ALL;
my $perms = sprintf '%04o', $m2 & PERM_ALL; # TODO use text form?
my $m = $m2 & ~PERM_ALL;
if ($m == MODE_DIR) {
push @SH_POST, "chmod $perms $pathname/ # was $prev";
}
elsif ($m == MODE_FIFO || $m == MODE_REG) {
push @SH_POST, "chmod $perms $pathname # was $prev";
}
}
return;
}
sub add {
my ($dir, $name, $n) = @_;
my $pathname = quote_path("$dir/$name");
my $m = $n->{mode} & ~PERM_ALL;
warn "add: $dir/$name mode=$m\n";
( run in 0.324 second using v1.01-cache-2.11-cpan-496ff517765 )