From: ivan <ivan>
Date: Tue, 7 Apr 2009 02:18:16 +0000 (+0000)
Subject: stop smoking crack
X-Git-Tag: root_of_svc_elec_features~1298
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=fee9be55f0a94bd0187e370253ec2b261944602c

stop smoking crack
---

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