diff options
Diffstat (limited to 'lib/App/BorgRestore.pm')
| -rw-r--r-- | lib/App/BorgRestore.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/App/BorgRestore.pm b/lib/App/BorgRestore.pm index d96b957..68f12ff 100644 --- a/lib/App/BorgRestore.pm +++ b/lib/App/BorgRestore.pm @@ -13,10 +13,8 @@ use App::BorgRestore::Settings; use autodie; use Carp; use Cwd qw(abs_path getcwd); -use File::Basename; +use Path::Tiny; use File::pushd; -use File::Spec; -use File::Temp; use Function::Parameters; use Getopt::Long; use List::Util qw(any all); @@ -130,7 +128,7 @@ Returns an absolute path for a given path. =cut method resolve_relative_path($path) { - my $canon_path = File::Spec->canonpath($path); + my $canon_path = path($path)->canonpath; my $abs_path = abs_path($canon_path); if (!defined($abs_path)) { @@ -336,7 +334,7 @@ method restore($path, $archive, $destination) { $log->infof("Restoring %s to %s from archive %s", $path, $destination, $archive->{archive}); - my $basename = basename($path); + my $basename = path($path)->basename; my $components_to_strip =()= $path =~ /\//g; $log->debugf("CWD is %s", getcwd()); |