ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: allow directory traversal for subvol_args

pull/459/head
Axel Burri 2022-02-26 18:09:42 +01:00
parent a25486336b
commit 047d3a1a65
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
btrbk
View File

@ -33,6 +33,7 @@ use Getopt::Long qw(GetOptions);
use Time::Local qw( timelocal timegm timegm_nocheck );
use IPC::Open3 qw(open3);
use Symbol qw(gensym);
use Cwd qw(abs_path);
our $VERSION = '0.32.1-dev';
our $AUTHOR = 'Axel Burri <axel@tty0.ch>';
@ -5586,11 +5587,7 @@ MAIN:
foreach (@subvol_args) {
my ($url_prefix, $path) = check_url($_);
if(!defined($path) && $subvol_args_allow_relative && ($url_prefix eq "") && (-d $_)) {
unless(eval_quiet { require File::Spec; }) {
ERROR "Cannot handle relative paths (perl version too old; missing File::Spec module): $_";
exit 2;
}
$path = check_file(File::Spec->rel2abs($_), { absolute => 1 });
$path = check_file(abs_path($_), { absolute => 1, sanitize => 1 });
}
unless(defined($path)) {
ERROR "Bad argument: not a subvolume declaration: $_";