cdr reimporting, RT#12181

diff --git a/bin/cdr.reimport b/bin/cdr.reimport
index 1b2f198..51c62d2 100644 (file)
--- 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( {