From: Dan Fandrich <dan@coneharvesters.com>
Date: Fri, 12 Dec 2025 23:36:40 +0000 (-0800)
Subject: tests: fix perl scalar warning
X-Git-Tag: rc-8_18_0-2~16
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e0a77ec90f949fde72ac7c03e755df8acef021b1;p=thirdparty%2Fcurl.git

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 ea54fb90eb..9883db22b0 100644
--- 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";