From c01186e8877f8985e652af77ce88e18bd516fa91 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 1 Nov 2005 05:32:56 +0000
Subject: [PATCH] yarg

---
 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 c1724afe6..4424797c1 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -836,7 +836,7 @@ sub spool_csv {
   my($self, %opt) = @_;
 
   if ( $opt{'dest'} ) {
-    my %invoicing_list = map { /^(POST|FAX)$/ or $1 = 'EMAIL'; $1 => 1 }
+    my %invoicing_list = map { /^(POST|FAX)$/ or 'EMAIL' =~ /^(.*)$/; $1 => 1 }
                              $self->cust_main->invoicing_list;
     return unless $invoicing_list{$opt{'dest'}};
   }
-- 
2.11.0