Francois Gouget : testbot/TestWTBS: The prefix may be undefined in GrepFile().

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 5a31273f86942561783e900fc676c3839cc9dceb
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=5a31273f86942561783e900fc676c3839cc9dceb

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Tue Feb  9 16:22:24 2021 +0100

testbot/TestWTBS: The prefix may be undefined in GrepFile().

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 testbot/tests/TestWTBS | 1 +
 1 file changed, 1 insertion(+)

diff --git a/testbot/tests/TestWTBS b/testbot/tests/TestWTBS
index 4837664..dbd1130 100755
--- a/testbot/tests/TestWTBS
+++ b/testbot/tests/TestWTBS
@@ -757,6 +757,7 @@ sub GrepFile($$$$;$)
 {
   my ($Key, $Dir, $FileName, $GrepInfo, $GrepPrefix) = @_;
 
+  $GrepPrefix ||= "";
   my @Grep = @{$GrepInfo->{"${GrepPrefix}Grep"} || []};
   my @GrepV = @{$GrepInfo->{"${GrepPrefix}GrepV"} || []};
   return if (!@Grep and !@GrepV);