From: Chip Salzenberg <chip@atlantic.net>
Date: Thu, 6 Mar 1997 16:01:12 +0000 (+1200)
Subject: Don't count on 'trap 0' inside () in shell script
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3e802d291abd602c137e503c4aefa90f991d0fd;p=p5sagit%2Fp5-mst-13.2.git

Don't count on 'trap 0' inside () in shell script

(this is the same change as commit 2626e112ed2a75058c6a5e98cce21f1af08a8ace, but as applied)
---

diff --git a/perl_exp.SH b/perl_exp.SH
index d964bdf..c0702d0 100755
--- a/perl_exp.SH
+++ b/perl_exp.SH
@@ -40,20 +40,17 @@ echo "#!" > perl.exp
 
 case "$bincompat3" in
 y*)
-	(
-	  global=/tmp/exp$$g
-	  interp=/tmp/exp$$i
-	  compat3=/tmp/exp$$c
-	  trap 'rm -f $global $interp $compat3' 0
-	  trap 'exit 1' 1 2 3 13 15
-	  grep '^[A-Za-z]' global.sym | sort >$global
-	  grep '^[A-Za-z]' interp.sym | sort >$interp
-	  grep '^[A-Za-z]' compat3.sym | sort >$compat3
-	  comm -23 $global $compat3 | sed 's/^/Perl_/' >> perl.exp
-	  comm -12 $interp $compat3 | sed 's/^/Perl_/' >> perl.exp
-	  comm -12 $global $compat3 >> perl.exp
-	  comm -23 $interp $compat3 >> perl.exp
-	)
+	global=/tmp/exp$$g
+	interp=/tmp/exp$$i
+	compat3=/tmp/exp$$c
+	grep '^[A-Za-z]' global.sym | sort >$global
+	grep '^[A-Za-z]' interp.sym | sort >$interp
+	grep '^[A-Za-z]' compat3.sym | sort >$compat3
+	comm -23 $global $compat3 | sed 's/^/Perl_/' >> perl.exp
+	comm -12 $interp $compat3 | sed 's/^/Perl_/' >> perl.exp
+	comm -12 $global $compat3 >> perl.exp
+	comm -23 $interp $compat3 >> perl.exp
+	rm -f $global $interp $compat3
 	;;
 *)
 	sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp