filter out array subscripts when generating symbols for AIX

	Message-Id: <199806220914.MAA13631@alpha.hut.fi>
	Subject: [PATCH] 5.004_67: perl.exp bug, AIX unhappy

p4raw-id: //depot/perl@1194

diff --git a/perl_exp.SH b/perl_exp.SH
index f8fd973..ab1866b 100644 (file)
--- a/perl_exp.SH
+++ b/perl_exp.SH
@@ -44,8 +44,8 @@ syms=`ls -1 *.sym|egrep -v 'compat3|perlio'`
 
 sed -n '/^[A-Za-z]/ s/^/Perl_/p' $syms                  >> perl.exp
 
-sed -n 's/^PERLVAR.*(G\([^,]*\).*/Perl_\1/p' perlvars.h >> perl.exp
-sed -n 's/^PERLVAR.*(T\([^,]*\).*/Perl_\1/p' thrdvar.h  >> perl.exp
+sed -n 's/^PERLVAR.*(G\([^,[]*\).*/Perl_\1/p' perlvars.h >> perl.exp
+sed -n 's/^PERLVAR.*(T\([^,[]*\).*/Perl_\1/p' thrdvar.h  >> perl.exp
 
 # 
 # If we use the PerlIO abstraction layer, add its symbols