From: ivan <ivan>
Date: Thu, 17 Sep 2009 23:45:21 +0000 (+0000)
Subject: eliminate mystery "min ( N.NN, M.MM )" warning
X-Git-Tag: freeside_1_9_1^2~79
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=790efa50f8968d9d18028ef8aeaa7a8c7c16965c;p=freeside.git

eliminate mystery "min ( N.NN, M.MM )" warning
---

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 68571f77e..03c1c1d92 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -628,7 +628,7 @@ sub apply_payments_and_credits {
     }
     next unless $owed > 0;
 
-    warn "min ( $unapp_amount, $owed )\n";
+    warn "min ( $unapp_amount, $owed )\n" if $DEBUG;
     $app->amount( sprintf('%.2f', min( $unapp_amount, $owed ) ) );
 
     $app->invnum( $self->invnum );