Bug fixes.

1 files changed, 2 insertions, 4 deletions

diff --git a/lib/Fripost/Panel/Login.pm b/lib/Fripost/Panel/Login.pm
index 1eabafb..22a870a 100644
--- a/lib/Fripost/Panel/Login.pm
+++ b/lib/Fripost/Panel/Login.pm
@@ -23,7 +23,7 @@ use Fripost::Schema::Util 'split_addr';
 
 use HTML::Entities 'encode_entities';
 use URI::Escape::XS 'decodeURIComponent';
-use Encode;
+use Encode ();
 
 # This method is called right before the 'setup' method below. It
 # initializes the session and authentication configurations.
@@ -56,9 +56,7 @@ sub cgiapp_init {
     $self->authen->config(
         DRIVER                => [ 'Generic', sub {
             my ($u,$p) = @_;
-            my $d = (split_addr($u))[1];
-
-            unless (defined $d) {
+            unless ($u =~ /\@/) {
                 $CFG{default_realm} // return 0;
                 $u .= '@'.$CFG{default_realm};
             }