getpart: better handle case of file not found

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 9a5fbe52fc90133e354c514a876b6883b2adbde9..a2c1124f67715a5e12a7f53617ef407f0fa436fd 100644 (file)
--- 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;
 }