From fee9be55f0a94bd0187e370253ec2b261944602c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 7 Apr 2009 02:18:16 +0000
Subject: [PATCH] stop smoking crack

---
 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 5f467394c..bc5bb8d4e 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(8|[02-7]{2})/ ) ? 1 : 0;
+  ( $self->dst =~ /^(\+?1)?8([02-8])\1/ ) ? 1 : 0;
 }
 
 =item set_charged_party
-- 
2.11.0