From 432ab2af40034d4f63f7771eff6207c73b057959 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 31 Mar 2009 19:47:35 +0000
Subject: [PATCH] quiet warning: Argument "" isn't numeric in numeric eq (==)
 at /usr/local/share/perl/5.10.0/FS/part_pkg/voip_cdr.pm line 201

---
 FS/FS/part_pkg/voip_cdr.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm
index a691fdad6..fe05b684a 100644
--- a/FS/FS/part_pkg/voip_cdr.pm
+++ b/FS/FS/part_pkg/voip_cdr.pm
@@ -199,7 +199,8 @@ sub calc_recur {
   my $last_bill = $cust_pkg->get('last_bill'); #->last_bill falls back to setup
 
   return 0
-    if $self->option('recur_temporality', 1) eq 'preceding' && $last_bill == 0;
+    if $self->option('recur_temporality', 1) eq 'preceding'
+    && ( $last_bill eq '' || $last_bill == 0 );
 
   my $ratenum = $cust_pkg->part_pkg->option('ratenum');
 
-- 
2.11.0