* 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 429e91105746bde6a9f803680f2cdeec45eb3f7d..635f686ac39bfa106ad4f730f98f98775214e00e 100644 (file)
--- 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 9ea36488dda742c795d114da156579f82f277be1..f3706543e853e056c39d8a334ee395f9b6090976 100755 (executable)
--- 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;