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

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

diff --git a/src/util/ChangeLog b/src/util/ChangeLog
index b7c87caa5a9bd3f152b6be741d3f168d1e9a1a6e..429e91105746bde6a9f803680f2cdeec45eb3f7d 100644 (file)
--- a/src/util/ChangeLog
+++ b/src/util/ChangeLog
@@ -2,6 +2,8 @@
 
        * export-check.pl: New file.
 
+       * export-check.pl: Accept 'G' in nm output.
+
 2005-12-22  Ken Raeburn  <raeburn@mit.edu>
 
        * depfix.pl (uniquify): New subroutine.

diff --git a/src/util/export-check.pl b/src/util/export-check.pl
index 67c8e853d384d551cdc7071c84226466a7857840..9ea36488dda742c795d114da156579f82f277be1 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 (!/^[TDRB] /) {
+    if (!/^[TDRBG] /) {
        unlink $libfile;
        die "not sure what to do with '$_'";
     }
-    s/^[TDRB] +//;
+    s/^[TDRBG] +//;
     push @found, $_;
 }
 @found = sort @found;