cdr/freeside_description_default.pm: parse destination correctly, RT13141

diff --git a/FS/FS/cdr/freeside_description_default.pm b/FS/FS/cdr/freeside_description_default.pm
index bbac86f..e44f404 100644 (file)
--- a/FS/FS/cdr/freeside_description_default.pm
+++ b/FS/FS/cdr/freeside_description_default.pm
@@ -37,9 +37,9 @@ use FS::cdr;
     # Number
     sub {
         my($cdr, $number) = @_;
-        $number =~ /(\d+)\s(\d+)$/ 
+        $number =~ /(\+|)(\d+)\s(\d+)$/ 
             or die "unparsable number: $number"; #maybe we shouldn't die...
-        $cdr->dst("$1$2");
+        $cdr->dst("$1$2$3");
     },           
 
     'description',      # Destination (regionname)