From: Jarkko Hietaniemi Date: Mon, 22 Jun 1998 12:14:31 +0000 (+0300) Subject: filter out array subscripts when generating symbols for AIX X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=048b2c9775bab3dc234bc0f1bee2357fca20cec3;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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