From 2db2d499dec0d945b1a93e13c98a7a2a4eb2fb3a Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@mit.edu>
Date: Thu, 26 Jan 2006 16:07:41 +0000
Subject: [PATCH] * export-check.pl: Accept 'S' in nm output

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@17618 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/util/ChangeLog       | 4 ++++
 src/util/export-check.pl | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

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;
-- 
2.26.2