diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-05-19 22:36:45 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-05-19 22:36:45 +0000 |
commit | 819ab93566e8e604e756ac4646c87e46e59ee7ad (patch) | |
tree | 43ed7c5f29991f57ea7167edf323c3fe1eb9c662 /lsmb-request.pl | |
parent | 5a0e273bc0edbd031aecacbc485309db0707712f (diff) |
Correcting problem in DBObject.pm constructor
Correcting method->procedure mappings for DBD::Pg 2.0 and above.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2152 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'lsmb-request.pl')
-rw-r--r-- | lsmb-request.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lsmb-request.pl b/lsmb-request.pl index a0de6115..851d66b8 100644 --- a/lsmb-request.pl +++ b/lsmb-request.pl @@ -49,10 +49,9 @@ if (!$script){ &call_script( $script, $request ); sub call_script { - + my $script = shift @_; my $request = shift @_; - eval { require "scripts/$script" } || $request->error($locale->text('Unable to open script') . ": scripts/$script : $!"); $script =~ s/\.pl$//; |