diff --git a/tests/getpart.pm b/tests/getpart.pm index 9a5fbe52fc..a2c1124f67 100644 --- a/tests/getpart.pm +++ b/tests/getpart.pm @@ -325,11 +325,12 @@ sub loadarray { my ($filename)=@_; my @array; - open(my $temp, "<", "$filename"); - while(<$temp>) { - push @array, $_; + if (open(my $temp, "<", "$filename")) { + while(<$temp>) { + push @array, $_; + } + close($temp); } - close($temp); return @array; }