From: Sylvestre Ledru <sylvestre@debian.org>
Date: Fri, 13 Sep 2019 09:31:19 +0000 (+0000)
Subject: Fix a perl warning: Scalar value @ArgParts[0] better written as $ArgParts[0] at ... 
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=56e226c3c38e4d61d7f07309b2deb288eeb9c4ab;p=clang

Fix a perl warning: Scalar value @ArgParts[0] better written as $ArgParts[0] at /usr/share/clang/scan-build-10/libexec/ccc-analyzer line 502.



git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@371832 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/tools/scan-build/libexec/ccc-analyzer b/tools/scan-build/libexec/ccc-analyzer
index 6d24a1af45..800f38b5ba 100755
--- a/tools/scan-build/libexec/ccc-analyzer
+++ b/tools/scan-build/libexec/ccc-analyzer
@@ -499,7 +499,7 @@ my $HasSDK = 0;
 foreach (my $i = 0; $i < scalar(@ARGV); ++$i) {
   my $Arg = $ARGV[$i];
   my @ArgParts = split /=/,$Arg,2;
-  my $ArgKey = @ArgParts[0];
+  my $ArgKey = $ArgParts[0];
 
   # Be friendly to "" in the argument list.
   if (!defined($ArgKey)) {