generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

symbol-scan.pl: detect duplicates

Browse Source 
Test 1119 now also makes sure that symbols-in-versions doesn't contain
any duplicates
This commit is contained in:
Daniel Stenberg 2011-03-18 15:42:58 +01:00
parent 89d412b5e7
commit 4b51484a68
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/symbol-scan.pl
View File

@ -6,7 +6,7 @@
# | (__| |_| | _ <| |___ # | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____| # \___|\___/|_| \_\_____|
# #
# Copyright (C) 2010, Daniel Stenberg, <daniel@haxx.se>, et al. # Copyright (C) 2010-2011, Daniel Stenberg, <daniel@haxx.se>, et al.
# #
# This software is licensed as described in the file COPYING, which # This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms # you should have received as part of this distribution. The terms
@ -82,6 +82,11 @@ open S, "<$root/docs/libcurl/symbols-in-versions";
while(<S>) { while(<S>) {
if(/(^CURL[^ \n]*) *(.*)/) { if(/(^CURL[^ \n]*) *(.*)/) {
my ($sym, $rest)=($1, $2); my ($sym, $rest)=($1, $2);
if($doc{$sym}) {
print "Detected duplicate symbol: $sym\n";
$misses++;
next;
}
$doc{$sym}=$sym; $doc{$sym}=$sym;
my @a=split(/ +/, $rest); my @a=split(/ +/, $rest);
if($a[2]) { if($a[2]) {