diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-06-22 15:14:31 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-23 05:38:36 +0000 |
| commit | 048b2c9775bab3dc234bc0f1bee2357fca20cec3 (patch) | |
| tree | 155caff2a15b2caee387de1b4740fd80232cb793 /perl_exp.SH | |
| parent | ef6cdfd2324258dbd7407fe0d1d6f2386b953d5a (diff) | |
| download | perl-048b2c9775bab3dc234bc0f1bee2357fca20cec3.tar.gz | |
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
Diffstat (limited to 'perl_exp.SH')
| -rw-r--r-- | perl_exp.SH | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_exp.SH b/perl_exp.SH index f8fd973e30..ab1866bfaa 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 |