} elsif ( $conf::upload_method ne "copy" ) {
msg( "mail,log", "cancel not available\n" );
} elsif (
- $word[1] !~ m,$re_file_safe_prefix.changes\z, )
+ $word[1] !~ m,$re_file_safe_prefix\.changes\z, )
{
msg( "mail,log",
"argument to cancel must be one .changes filename without path\n" );
unlink $file;
ftp_cmd( "delete", $file );
} elsif ( $conf::upload_method eq "copy" ) {
- unlink("$main::current_targetdir/$testfile");
- unless (open my $fh, ">>", "$main::current_targetdir/$testfile") {
+ unless(POSIX::access($main::current_targetdir, &POSIX::W_OK)) {
+ $msg = "No write access: $!";
$stat = 1;
- $msg = "Could not create $testfile: $!";
- }
- else {
- close $fh;
- unless (unlink("$main::current_targetdir/$testfile")) {
- $stat = 1;
- $msg = "Could not unlink file $testfile: $!";
- }
}
}
chomp($msg);