diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-15 15:07:47 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-09-15 15:07:47 +0000 |
| commit | aa07064fcb14056a9e46b4d41e4106d7b152377a (patch) | |
| tree | 71f23be92521d469d0636ab1cb66080d11e42e25 /LedgerSMB/CP.pm | |
| parent | 5a76b2ce96077ff26fc801a26c32ca7a9c871519 (diff) | |
Strict fixes (bareword removal) and removing "no strict 'subs'".
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1610 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/CP.pm')
| -rw-r--r-- | LedgerSMB/CP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm index 6d31c5aa..683484fd 100644 --- a/LedgerSMB/CP.pm +++ b/LedgerSMB/CP.pm @@ -430,7 +430,7 @@ sub post_payment { $sth = $dbh->prepare($query); $sth->execute( $form->{"id_$i"}, $id, $form->{date_paid}, $amount * $ml ) - || $form->dberror( $query, __file__, __line__ ); + || $form->dberror( $query, __FILE__, __LINE__ ); # add payment $query = qq| |