From 790db5a543f9d697ed373acab2b95566634cf029 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 1 May 2011 20:02:38 +0000
Subject: [PATCH] cdr reimporting, RT#12181

---
 bin/cdr.reimport | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/cdr.reimport b/bin/cdr.reimport
index 1b2f198d6..51c62d2ea 100644
--- a/bin/cdr.reimport
+++ b/bin/cdr.reimport
@@ -34,7 +34,7 @@ my $cb = sub {
     $new++;
     return;
   }
-  die "too many matches found!" if scalar(@exists) > 1;
+  return "too many matches found!" if scalar(@exists) > 1;
 
   my $exists = $exists[0];
   if ( $exists->freesidestatus ) {
@@ -43,9 +43,11 @@ my $cb = sub {
   } else {
     $rep++;
     my $error = $exists->delete;
-    die $error if $error;
+    return $error if $error;
   }
 
+  return '';
+
 };
 
 my $error = FS::cdr::batch_import( {
-- 
2.11.0