silence a warning
authorivan <ivan>
Tue, 6 Dec 2011 01:02:54 +0000 (01:02 +0000)
committerivan <ivan>
Tue, 6 Dec 2011 01:02:54 +0000 (01:02 +0000)
FS/FS/cust_bill_pkg.pm

index 58e2419..267804b 100644 (file)
@@ -531,7 +531,7 @@ sub details {
 
     #avoid the fetchall_arrayref and loop for less memory usage?
 
-    map { $_->[0] eq 'C'
+    map { (defined($_->[0]) && $_->[0] eq 'C')
             ? &{$format_sub}(      $_->[1] )
             : &{$escape_function}( $_->[1] );
         }