mirror of
https://github.com/samba-team/samba.git
synced 2025-03-27 22:50:26 +03:00
selftest: Cope with strict.
This commit is contained in:
parent
9ef235ed0a
commit
9db207da07
@ -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>;
|
||||
|
Loading…
x
Reference in New Issue
Block a user