X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl_exp.SH;h=a874e5c13df35607d8dc61d0b6ff3d41c551ffaa;hb=db15561cb83ed8e36f76d63e4283fc51c30fd71f;hp=f8fd973e30399f40fa52c94c82933632c069ab21;hpb=bd656b61a06f544ae070cad87b364e39eafa7528;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl_exp.SH b/perl_exp.SH
index f8fd973..a874e5c 100644
--- a/perl_exp.SH
+++ b/perl_exp.SH
@@ -38,14 +38,14 @@ echo "Extracting perl.exp"
 rm -f perl.exp
 echo "#!" > perl.exp
 
-# No compat3 since and including the 5.004_50.
-# perlio.sym added later if needed.
-syms=`ls -1 *.sym|egrep -v 'compat3|perlio'`
+# No compat3 since 5.004_50.
+# perlio.sym will added below if needed.
+syms="global.sym interp.sym thread.sym"
 
 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