diff options
| author | Jelmer Vernooij <jelmer@samba.org> | 2010-04-12 16:11:31 +0200 |
|---|---|---|
| committer | Jelmer Vernooij <jelmer@samba.org> | 2010-04-12 16:35:18 +0200 |
| commit | 9db207da071002b4eb671ba8500f1c26963e3859 (patch) | |
| tree | 2f17bfbc96095eae01057fbac81f749a99cff59e /selftest | |
| parent | 9ef235ed0a833be671600c5efc2e8bf456c03c96 (diff) | |
| download | samba-9db207da071002b4eb671ba8500f1c26963e3859.tar.gz samba-9db207da071002b4eb671ba8500f1c26963e3859.tar.bz2 samba-9db207da071002b4eb671ba8500f1c26963e3859.zip | |
selftest: Cope with strict.
Diffstat (limited to 'selftest')
| -rwxr-xr-x | selftest/selftest.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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>; |