tests: fix perl scalar warning

Fixes the warning "Scalar value @xml[0] better written as $xml[0]"

Follow-up to b5ea0736bb

Ref: #19946
This commit is contained in:
Dan Fandrich 2025-12-12 15:36:40 -08:00
parent 72f55c1c12
commit e0a77ec90f

View File

@ -244,7 +244,7 @@ sub loadtest {
print STDERR "file $file is empty!\n";
return 1;
}
my $prolog = @xml[0];
my $prolog = $xml[0];
chomp $prolog;
if($prolog ne '<?xml version="1.0" encoding="US-ASCII"?>') {
print STDERR "file $file missing the XML prolog!\n";