selftest: Cope with strict.

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 7bc14b12cb5287e2acd12c325befaefc60ed6601..aa3d79c5d78dad85f16d846707fe792231e35ed0 100755 (executable)
--- a/selftest/selftest.pl
+++ b/selftest/selftest.pl
@@ -641,7 +641,7 @@ sub read_testlist($)
 
        while (<IN>) {
                if (/-- TEST(-LOADLIST)? --\n/) {
-                       my $supports_loadlist = ($1 eq "-LOADLIST");
+                       my $supports_loadlist = (defined($1) and $1 eq "-LOADLIST");
                        my $name = <IN>;
                        $name =~ s/\n//g;
                        my $env = <IN>;