Converting 2-arg open to 3-arg open

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@719 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 8 insertions, 8 deletions

diff --git a/setup.pl b/setup.pl
index 231df759..4b70aec0 100755
--- a/setup.pl
+++ b/setup.pl
@@ -124,7 +124,7 @@ if ($filename) {
   
 if (-f "VERSION") {
   # get installed version from VERSION file
-  open(FH, "VERSION");
+  open(FH, '<', "VERSION");
   @a = <FH>;
   close(FH);
   $version = $a[0];
@@ -429,13 +429,13 @@ sub install_smb {
   &decompress;
 
   if ($newinstall) {
-    open(FH, "ledger-smb.conf.default");
+    open(FH, '<', "ledger-smb.conf.default");
     @f = <FH>;
     close(FH);
     unless ($latex) {
       grep { s/^\$latex.*/\$latex = 0;/ } @f;
     }
-    open(FH, ">ledger-smb.conf");
+    open(FH, '>', "ledger-smb.conf");
     print FH @f;
     close(FH);
 
@@ -450,12 +450,12 @@ sub install_smb {
     $filename = "ledger-smb-httpd.conf";
 
     # do we have write permission?
-    if (!open(FH, ">>$httpddir/$filename")) {
-      open(FH, ">$filename");
+    if (!open(FH, '>>', "$httpddir/$filename")) {
+      open(FH, '>', "$filename");
       $norw = 1;
     }
 
-    open (HTTPD, '< sql-ledger-httpd.conf');
+    open (HTTPD, '<', 'sql-ledger-httpd.conf');
     while ($line = <HTTPD>){
         print FH $line;
     }
@@ -506,7 +506,7 @@ Webserver directives were written to
       if (!$confd) {
 	if (!(`grep "^# LedgerSMB" $httpd`)) {
 
-	  open(FH, ">>$httpd");
+	  open(FH, '>>', "$httpd");
 
 	  print FH qq|
 
@@ -618,7 +618,7 @@ sub decompress {
 sub create_lockfile {
 
   if (-d "$userspath") {
-    open(FH, ">$userspath/nologin");
+    open(FH, '>', "$userspath/nologin");
     close(FH);
   }