Debug:
$fh->open($r->{filename}, O_CREAT|O_BINARY|O_RDWR ) or $self->dd({
system => $^E,
effUID => $>,
effGID => $),
fileUID => $stat->[4],
fileGID => $stat->[5],
});
und wenns knallt, was sehe ich:
$VAR1 = {
'fileGID' => 0,
'effUID' => '1127',
'system' => 'Permission denied',
'fileUID' => 0,
'effGID' => '443 443'
};
stat[4] und [5] sind plötzlich 0. Nix verstehen. Waren vor dem Upload gleich wie $> und $)