out of scope bad

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 9128c42..cb43b37 100644 (file)
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -208,7 +208,7 @@ sub replace {
     }
   }
 
-  $error = $new->SUPER::replace($old, @_);
+  my $error = $new->SUPER::replace($old, @_);
 
   if ( $error ) {
     $dbh->rollback or die $dbh->errstr if $oldAutoCommit;