Fix potential "use of uninitialized value" if called during startup

interchange · Jun 22, 2017 · af6e712 · af6e712
1 parent fbb4368
commit af6e712
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Vend/File.pm b/lib/Vend/File.pm
@@ -707,10 +707,13 @@ sub allowed_file {
 	my $fn = shift;
 	my $write = shift;
 	my $status = 1;
+	my $pat;
 	$Vend::File::errstr = '';
 	if(	$Global::NoAbsolute
 			and
-		$fn !~ $Global::AllowedFileRegex->{$Vend::Cat}
+		$pat = $Global::AllowedFileRegex->{$Vend::Cat // ''}
+			and
+		$fn !~ $pat
 			and
 		absolute_or_relative($fn)
 		)