mirror of https://github.com/digint/btrbk
btrbk: tidy check_file
parent
47a3aa5849
commit
54bb876b85
4
btrbk
4
btrbk
|
@ -3861,9 +3861,7 @@ sub check_file($$;@)
|
||||||
my %opts = @_;
|
my %opts = @_;
|
||||||
my $sanitize = $opts{sanitize};
|
my $sanitize = $opts{sanitize};
|
||||||
my $error_statement = $opts{error_statement}; # if not defined, no error messages are printed
|
my $error_statement = $opts{error_statement}; # if not defined, no error messages are printed
|
||||||
|
my $match = $accept->{wildcards} ? $glob_match : $file_match;
|
||||||
my $match = $file_match;
|
|
||||||
$match = $glob_match if($accept->{wildcards});
|
|
||||||
|
|
||||||
if($file =~ /^($match)$/) {
|
if($file =~ /^($match)$/) {
|
||||||
$file = $1;
|
$file = $1;
|
||||||
|
|
Loading…
Reference in New Issue