Don't remove /M tokens upon use.

1 files changed, 1 insertions, 4 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Auth.pm b/perllib/FixMyStreet/App/Controller/Auth.pm
index 57b53a155..5a4243fbf 100644
--- a/perllib/FixMyStreet/App/Controller/Auth.pm
+++ b/perllib/FixMyStreet/App/Controller/Auth.pm
@@ -157,11 +157,8 @@ sub token : Path('/M') : Args(1) {
     # Sign out in case we are another user
     $c->logout();
 
-    # get the email and scrap the token
-    my $data = $token_obj->data;
-    $token_obj->delete;
-
     # find or create the user related to the token.
+    my $data = $token_obj->data;
     my $user = $c->model('DB::User')->find_or_create( { email => $data->{email} } );
     $user->name( $data->{name} ) if $data->{name};
     $user->password( $data->{password}, 1 ) if $data->{password};