From 792155f15ac9c520dac7b72fdbddd894bd2b3133 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Tue, 7 Apr 2009 02:50:46 +0000
Subject: [PATCH] a tollfree regex that captures 88x and works with +1

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

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index bc5bb8d4e..0230adcd8 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -277,7 +277,7 @@ sub check {
 
 sub is_tollfree {
   my $self = shift;
-  ( $self->dst =~ /^(\+?1)?8([02-8])\1/ ) ? 1 : 0;
+  ( $self->dst =~ /^(\+?1)?8(8|([02-7])\3)/ ) ? 1 : 0;
 }
 
 =item set_charged_party
-- 
2.11.0