- $dav->put(-local => $filename, -url => $url)
- or warn "Couldn't upload $filename: " . $dav->message . "\n";
+ if ($dav->put(-local => $filename, -url => $url)) {
+ push @succeeded, $filename;
+ } else {
+ push @failed, $filename;
+ warn "Couldn't upload $filename: " . $dav->message . "\n";
+ }