fix trash-put
This commit is contained in:
parent
febcfdf968
commit
2a529dbe18
1 changed files with 1 additions and 2 deletions
|
@ -3,7 +3,6 @@ use strict;
|
|||
use warnings;
|
||||
use feature("signatures");
|
||||
|
||||
use File::Copy;
|
||||
use File::Path("make_path");
|
||||
use List::Util("max");
|
||||
|
||||
|
@ -70,5 +69,5 @@ DeletionDate=$deletion_time
|
|||
EOF
|
||||
|
||||
make_path( $trash_info_path, $trash_file_path );
|
||||
move( $file_src, "$trash_file_path/$target_name" ) or die "$!\n";
|
||||
rename( $file_src, "$trash_file_path/$target_name" ) or die "$!\n";
|
||||
write_file( "$trash_info_path/$target_name", $info_contents ) or die "$!\n";
|
||||
|
|
Loading…
Add table
Reference in a new issue