From: Tom Hughes <tom@compton.nu>
Date: Fri, 10 Jul 1998 09:01:12 +0000 (+0100)
Subject: [5.004_71] Patch: Fix perl_exp.SH for Unixware
X-Git-Tag: accepted/trunk/20130322.191538~37390
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ec943e08dab44ba23d627be8e095a4a8d45c007d;p=platform%2Fupstream%2Fperl.git

[5.004_71] Patch: Fix perl_exp.SH for Unixware

	Message-ID: <yekr9zu5e47.fsf@elva.cyberscience.com>

p4raw-id: //depot/perl@1415
---

diff --git a/perl_exp.SH b/perl_exp.SH
index d59bc75..a874e5c 100644
--- a/perl_exp.SH
+++ b/perl_exp.SH
@@ -44,8 +44,8 @@ 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