From f3b567b649676ea2f5dc59a0160291a4a0cbd660 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 7 Nov 2007 20:22:55 +0000
Subject: 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
---
 LedgerSMB/IS.pm   | 2 +-
 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($!);
     }
-- 
cgit v1.2.3