From: Ken Raeburn <raeburn@mit.edu>
Date: Thu, 26 Jan 2006 16:07:41 +0000 (+0000)
Subject: * export-check.pl: Accept 'S' in nm output
X-Git-Tag: krb5-1.5-alpha1~202
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=2db2d499dec0d945b1a93e13c98a7a2a4eb2fb3a;p=krb5.git

* export-check.pl: Accept 'S' in nm output

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@17618 dc483132-0cff-0310-8789-dd5450dbe970
---

diff --git a/src/util/ChangeLog b/src/util/ChangeLog
index 429e91105..635f686ac 100644
--- a/src/util/ChangeLog
+++ b/src/util/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-26  Ken Raeburn  <raeburn@mit.edu>
+
+	* export-check.pl: Accept 'S' in nm output.
+
 2006-01-25  Ken Raeburn  <raeburn@mit.edu>
 
 	* export-check.pl: New file.
diff --git a/src/util/export-check.pl b/src/util/export-check.pl
index 9ea36488d..f3706543e 100755
--- a/src/util/export-check.pl
+++ b/src/util/export-check.pl
@@ -26,11 +26,11 @@ while (<NM>) {
     chop;
     s/^[0-9a-fA-F]+ +//;
     next if /^A /;
-    if (!/^[TDRBG] /) {
+    if (!/^[TDRBGS] /) {
 	unlink $libfile;
 	die "not sure what to do with '$_'";
     }
-    s/^[TDRBG] +//;
+    s/^[TDRBGS] +//;
     push @found, $_;
 }
 @found = sort @found;