Skip to content
Browse files

For some odd reason, perl doesn't like the escaped single quote at th…

…e end of a range in a regular expression. Didn't figure out why, but moving it to a different position in the range fixed the issue. The User Registration page was not showing until this change was made.
  • Loading branch information...
1 parent e0c7abb commit 5e626d5e4a8dd54ccb2e29e82168d8a77d6abe52 @jaredbischof jaredbischof committed Mar 29, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/WebApplication/WebComponent/Register.pm
View
2 src/WebApplication/WebComponent/Register.pm
@@ -212,7 +212,7 @@ sub perform_registration {
}
# check if email address is valid
- unless ($cgi->param('email') =~ /^[\d\w\.-\']+\@[\d\w\.-]+\.[\w+]$/) {
+ unless ($cgi->param('email') =~ /^[\d\w\.\'-]+\@[\d\w\.-]+\.[\w+]$/) {
$application->add_message('warning', 'You must enter a valid eMail address.');
return 0;
}

0 comments on commit 5e626d5

Please sign in to comment.
Something went wrong with that request. Please try again.