ispman/install-data/ldifs make.pl,1.3,1.4

Update of /cvsroot/ispman/ispman/install-data/ldifs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30799/install-data/ldifs

Modified Files:
	make.pl 
Log Message:
code reformatting by perltidy conforming perl style guide


Index: make.pl
===================================================================
RCS file: /cvsroot/ispman/ispman/install-data/ldifs/make.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- make.pl	24 Apr 2003 19:58:25 -0000	1.3
+++ make.pl	30 May 2004 23:35:33 -0000	1.4
@@ -1,21 +1,21 @@
-for (<conf*_vars.ldif>){
-$moduleName=$_;
-$moduleName=~s/conf\.//;
-$moduleName=~s/\.ldif//;
-print "\$Config->{'ispmanVarSort'}{'$moduleName'}=[";
+for (<conf*_vars.ldif>) {
+    $moduleName = $_;
+    $moduleName =~ s/conf\.//;
+    $moduleName =~ s/\.ldif//;
+    print "\$Config->{'ispmanVarSort'}{'$moduleName'}=[";
 
-open F, "$_";
[email protected]=grep (/^ispmanVar:/, <F>);
-close F;
[email protected]=();
+    open F, "$_";
+    @vars = grep ( /^ispmanVar:/, <F> );
+    close F;
+    @_vars = ();
 
-for $var(@vars){
-	chomp ($var);
-	$var=~s/^ispmanVar:\s*//;
-	push @_vars, $var;
-}
-	print join ",", map {"'$_'"} @_vars;
+    for $var (@vars) {
+        chomp($var);
+        $var =~ s/^ispmanVar:\s*//;
+        push @_vars, $var;
+    }
+    print join ",", map { "'$_'" } @_vars;
 
-print "];\n"
+    print "];\n";
 }
 



-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g. 
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click