Do not error out when receiving UIDs > INT_MAX1.1.2

1 files changed, 6 insertions, 1 deletions

diff --git a/lib/Travelynx/Controller/Account.pm b/lib/Travelynx/Controller/Account.pm
index f7d3a75..081aa13 100644
--- a/lib/Travelynx/Controller/Account.pm
+++ b/lib/Travelynx/Controller/Account.pm
@@ -159,7 +159,7 @@ sub verify {
 	my $id    = $self->stash('id');
 	my $token = $self->stash('token');
 
-	if ( not $id =~ m{ ^ \d+ $ }x ) {
+	if ( not $id =~ m{ ^ \d+ $ }x or $id > 2147483647 ) {
 		$self->render( 'register', invalid => 'token' );
 		return;
 	}
@@ -528,6 +528,11 @@ sub recover_password {
 	my $id    = $self->stash('id');
 	my $token = $self->stash('token');
 
+	if ( not $id =~ m{ ^ \d+ $ }x or $id > 2147483647 ) {
+		$self->render( 'recover_password', invalid => 'recovery token' );
+		return;
+	}
+
 	if ( $self->verify_password_token( $id, $token ) ) {
 		$self->render('set_password');
 	}