From 07ab5bdd3bffccd7ac00080a2bfe0cb94b16907d Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Tue, 28 Mar 2023 21:07:06 -0700
Subject: [PATCH] getpart: better handle case of file not found

---
 tests/getpart.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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;
 }
 
-- 
2.47.3