From 790efa50f8968d9d18028ef8aeaa7a8c7c16965c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 17 Sep 2009 23:45:21 +0000
Subject: [PATCH] eliminate mystery "min ( N.NN, M.MM )" warning

---
 FS/FS/cust_bill.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 );
-- 
2.11.0