소스 검색

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
Sylvestre Ledru 6 년 전
부모
커밋
56e226c3c3
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      tools/scan-build/libexec/ccc-analyzer

+ 1 - 1
tools/scan-build/libexec/ccc-analyzer

@@ -499,7 +499,7 @@ my $HasSDK = 0;
 foreach (my $i = 0; $i < scalar(@ARGV); ++$i) {
 foreach (my $i = 0; $i < scalar(@ARGV); ++$i) {
   my $Arg = $ARGV[$i];
   my $Arg = $ARGV[$i];
   my @ArgParts = split /=/,$Arg,2;
   my @ArgParts = split /=/,$Arg,2;
-  my $ArgKey = @ArgParts[0];
+  my $ArgKey = $ArgParts[0];
 
 
   # Be friendly to "" in the argument list.
   # Be friendly to "" in the argument list.
   if (!defined($ArgKey)) {
   if (!defined($ArgKey)) {