tests: fix perl scalar warning

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

Follow-up to b5ea0736bbeeae717925d8eccbdb15057d8e88e9

Ref: #19946

diff --git a/tests/getpart.pm b/tests/getpart.pm
index ea54fb90eb4b5d639fe1818c075cadc031439c1a..9883db22b0b674c9141f4d8403430c0714715c02 100644 (file)
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -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";