diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-07 20:22:55 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-07 20:22:55 +0000 |
| commit | f3b567b649676ea2f5dc59a0160291a4a0cbd660 (patch) | |
| tree | aa9135c67b10904f6391cfcd753c87faaa98fbe7 /LedgerSMB | |
| parent | 5a5f4c7a8772f9ea107cebdd74b5897453ac6169 (diff) | |
Replacing backticks with system() calls since VanillaPerl seems to have issues with them
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1857 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/IS.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/User.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 034835ff..ad1f1c27 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -20,7 +20,7 @@ # Web: http://www.sql-ledger.org # # Contributors: Jim Rawlings <jim@your-dba.com> -#` +# #====================================================================== # # This file has undergone whitespace cleanup. diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 7ef25547..cbdb0c41 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -460,7 +460,7 @@ sub process_query { $ENV{PGHOST} = $form->{dbhost}; $ENV{PGPORT} = $form->{dbport}; - $results = `psql -f $filename 2>&1`; + $results = system('psql -f $filename 2>&1'); if ($?) { $form->error($!); } |