eleksir/yadproxy
0
Fork 0
Code Activity

Add perlcritic stuff :)

Browse Source
This commit is contained in:
eleksir
2021-05-30 14:30:00 +03:00
parent 0c147086c0
commit e655c11e0b
13 changed files with 127 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/yad_upload_file.pl
View File

@@ -39,7 +39,7 @@ if ($c->{remote_dir} && $c->{remote_dir} ne '') {
-path => $remote_dir,
-recursive => 1
) or do {
die "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
croak "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
};
}
@@ -47,7 +47,7 @@ $disk->uploadFile (
-file => $file,
-remote_path => $remote_dir,
-overwrite => 1
) or die "Не могу зааплодить файл в каталог $remote_dir на Yandex.Диске";
) or croak "Не могу зааплодить файл в каталог $remote_dir на Yandex.Диске";
say Dumper $disk->listFiles (-path =>$remote_dir);