From 80b28d30e9be7fcf2ca69f1ef48d14cfd40580b5 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Thu, 26 Jan 2006 03:07:12 +0000 Subject: [PATCH] * export-check.pl: Accept 'G' in nm output git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@17617 dc483132-0cff-0310-8789-dd5450dbe970 --- src/util/ChangeLog | 2 ++ src/util/export-check.pl | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/util/ChangeLog b/src/util/ChangeLog index b7c87caa5..429e91105 100644 --- 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 * depfix.pl (uniquify): New subroutine. diff --git a/src/util/export-check.pl b/src/util/export-check.pl index 67c8e853d..9ea36488d 100755 --- a/src/util/export-check.pl +++ b/src/util/export-check.pl @@ -26,11 +26,11 @@ while () { 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; -- 2.26.2