diff options
author | Florian Pritz <bluewind@xinu.at> | 2016-08-15 00:14:36 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2016-08-15 00:14:36 +0200 |
commit | f98e09d9848762860ce7eeb0b993242d2ed2949b (patch) | |
tree | 982e390938ad3637949498d0c30a2d702a4f26f8 /borg-restore.pl | |
parent | 26d023b9e88cf633d2c4b6599941241054bf5fa0 (diff) | |
download | bin-f98e09d9848762860ce7eeb0b993242d2ed2949b.tar.gz bin-f98e09d9848762860ce7eeb0b993242d2ed2949b.tar.xz |
borg-restore.pl: Fix prototype warning
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'borg-restore.pl')
-rwxr-xr-x | borg-restore.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/borg-restore.pl b/borg-restore.pl index 6477381..fa0b0c2 100755 --- a/borg-restore.pl +++ b/borg-restore.pl @@ -76,7 +76,7 @@ package main; use autodie; use Carp::Assert; -use Cwd qw(abs_path getcwd chdir); +use Cwd qw(abs_path getcwd); use Data::Dumper; use DateTime; use DB_File; @@ -270,7 +270,7 @@ sub restore { debug(sprintf("CWD is %s", getcwd())); debug(sprintf("Changing CWD to %s", $destination)); - #mkdir($destination) unless -d $destination; + mkdir($destination) unless -d $destination; chdir($destination) or die "Failed to chdir: $!"; # FIXME this doesn't behave as per docs yet |