From 9db207da071002b4eb671ba8500f1c26963e3859 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Mon, 12 Apr 2010 16:11:31 +0200
Subject: selftest: Cope with strict.

---
 selftest/selftest.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/selftest/selftest.pl b/selftest/selftest.pl
index 7bc14b12cb..aa3d79c5d7 100755
--- 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>;
-- 
cgit