my $filename = $upload->filename;
my $target = "/tmp/upload/$filename";
- unless ( $upload->link($target) || $upload->copy($target) ) {
+ unless ( $upload->link_to($target) || $upload->copy_to($target) ) {
die( "Failed to copy '$filename' to '$target': $!" );
}
}
my $filename = $upload->filename;
my $target = "/tmp/upload/$filename";
- unless ( $upload->link($target) || $upload->copy($target) ) {
+ unless ( $upload->link_to($target) || $upload->copy_to($target) ) {
die( "Failed to copy '$filename' to '$target': $!" );
}
}