X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_mailinglist.pm;h=ba297eedca5276cce4aa2d73e1a2cc7b4886c52b;hp=9c1a09ddb199b25f7f3e895560ac9ece74715001;hb=da86d5a8af2f915a340a74f6c97772451a1e23ef;hpb=7167be4668e6187ac55126791ca9b74cd5fb27e8

diff --git a/FS/FS/svc_mailinglist.pm b/FS/FS/svc_mailinglist.pm
index 9c1a09ddb..ba297eedc 100644
--- a/FS/FS/svc_mailinglist.pm
+++ b/FS/FS/svc_mailinglist.pm
@@ -2,6 +2,7 @@ package FS::svc_mailinglist;
 
 use strict;
 use base qw( FS::svc_Domain_Mixin FS::svc_Common );
+use Scalar::Util qw( blessed );
 use FS::Record qw( qsearchs dbh ); # qsearch );
 use FS::svc_domain;
 use FS::mailinglist;
@@ -160,7 +161,6 @@ sub insert {
       $dbh->rollback if $oldAutoCommit;
       return $error;
     }
-    warn $mailinglist->listnum;
     $self->listnum($mailinglist->listnum);
   #}