luca/dotfiles
1
0
Fork 0
Code Activity

fix trash-put

Browse source
This commit is contained in:
Luca Bilke 2024-01-04 12:45:00 +01:00
commit 2a529dbe18
1 changed files with 1 additions and 2 deletions

3
.local/bin/trash-put
View file

@ -3,7 +3,6 @@ use strict;
use warnings; use warnings;
use feature("signatures"); use feature("signatures");
use File::Copy;
use File::Path("make_path"); use File::Path("make_path");
use List::Util("max"); use List::Util("max");
@ -70,5 +69,5 @@ DeletionDate=$deletion_time
EOF EOF
make_path( $trash_info_path, $trash_file_path ); 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"; write_file( "$trash_info_path/$target_name", $info_contents ) or die "$!\n";