From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Fri, 16 Aug 1996 10:45:14 +0000 (+0000)
Subject: perl 5.003_03: writemain.SH
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69d111a1825a23ebdf7e917c1ffc2d14836f3623;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_03: writemain.SH

Remove unnecessary curlies.  (They are a leftover from
an older auto_init mechanism.)
---

diff --git a/writemain.SH b/writemain.SH
index 66d14a1..f07c682 100644
--- a/writemain.SH
+++ b/writemain.SH
@@ -84,7 +84,6 @@ if test X"$args" != "X" ; then
 	mname=`echo $ext   | sed 's!/!::!g'`
 	cname=`echo $mname | sed 's!:!_!g'`
 
-	echo "    {"
 	if test "$ext" = "DynaLoader"; then
 	    : Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'!
 	    : boot_DynaLoader is called directly in DynaLoader.pm
@@ -92,7 +91,6 @@ if test X"$args" != "X" ; then
 	else
 	    echo "        newXS(\"${mname}::bootstrap\", boot_${cname}, file);"
 	fi
-	echo "    }"
     done
 fi