diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 04:21:13 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 04:21:13 +0000 |
| commit | a4183b2fdd19d83c7705c423623c117c4118860f (patch) | |
| tree | deea607f3e64d2f73156138f7bee96e234c32598 /bin/login.pl | |
| parent | 6eb1b88d9ac9fde4efca4668b99d9628f0a9cd10 (diff) | |
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
Diffstat (limited to 'bin/login.pl')
| -rwxr-xr-x | bin/login.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/login.pl b/bin/login.pl index 11a5e82a..d1fa5202 100755 --- a/bin/login.pl +++ b/bin/login.pl @@ -238,7 +238,7 @@ sub login { #this needs to be done via db #if (! $form->{beenthere}) { - # open(FH, "${LedgerSMB::Sysconfig::memberfile}") or $form->error(__FILE__.':'.__LINE__.": $memberfile : $!"); + # open(FH, '<', "${LedgerSMB::Sysconfig::memberfile}") or $form->error(__FILE__.':'.__LINE__.": $memberfile : $!"); # @a = <FH>; # close(FH); # @@ -282,7 +282,7 @@ sub login { # upgrade dataset and log in again #locking needs to be done via db function - #open FH, ">${LedgerSMB::Sysconfig::userspath}/nologin" or $form->error($!); + #open FH, '>', "${LedgerSMB::Sysconfig::userspath}/nologin" or $form->error($!); for (qw(dbname dbhost dbport dbdriver dbuser dbpasswd)) { $form->{$_} = $user->{$_} } |