fix trash-put bug
This commit is contained in:
parent
dc386a9d9f
commit
0c2143cf87
|
@ -60,7 +60,7 @@ stat $ARGV[0] or die "$!";
|
|||
my ( $file_name, $file_src, $file_fs_root ) = file_info( $ARGV[0] );
|
||||
|
||||
my ( $trash_info_path, $trash_file_path ) = trash_dirs($file_fs_root);
|
||||
make_path( $trash_info_path, $trash_file_path ) or die "$!";
|
||||
make_path( $trash_info_path, $trash_file_path );
|
||||
|
||||
my $target_name = target_file_name( $file_name, $trash_file_path );
|
||||
chomp( my $deletion_time = `date -u +%Y%m%dUTC%T` );
|
||||
|
|
Loading…
Reference in New Issue