[freeside-commits] freeside/FS/FS cdr.pm,1.36,1.37

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv6976

Modified Files:
	cdr.pm 
Log Message:
stop smoking crack

Index: cdr.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- cdr.pm	7 Apr 2009 01:20:38 -0000	1.36
+++ cdr.pm	7 Apr 2009 02:18:16 -0000	1.37
@@ -277,7 +277,7 @@
 
 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