X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cbf8ed0240f2cf87a37ebaff9aa36844f66d0a49..084c45b1caafe20cf1f8fcc62be450edb29c385e:/t/bank/bank_transactions.t

diff --git a/t/bank/bank_transactions.t b/t/bank/bank_transactions.t
index b49dc4ac9..7b482c4d5 100644
--- a/t/bank/bank_transactions.t
+++ b/t/bank/bank_transactions.t
@@ -433,6 +433,7 @@ sub test_credit_note {
 }
 
 sub test_neg_ap_transaction {
+  my (%params) = @_;
   my $testname = 'test_neg_ap_transaction';
   my $netamount = -20;
   my $amount    = $::form->round_amount($netamount * 1.19,2);