don't re-my var, quiet warning

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index ddd6aa9..58442c9 100644 (file)
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -237,7 +237,7 @@ sub insert {
     $self->svcpart($cust_svc->svcpart);
   }
 
-  my $error = $self->_check_duplicate;
+  $error = $self->_check_duplicate;
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;
     return $error;