summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/JWebmail.pm4
-rw-r--r--lib/JWebmail/Controller/Webmail.pm6
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/JWebmail.pm b/lib/JWebmail.pm
index e672903..e2c291c 100644
--- a/lib/JWebmail.pm
+++ b/lib/JWebmail.pm
@@ -124,8 +124,8 @@ sub _mail_line {
\s*<$mail_addr>
) | (
$mail_addr
- ))$
- /xn;
+ )
+ )$/xn;
}
sub _filter_empty_upload {
diff --git a/lib/JWebmail/Controller/Webmail.pm b/lib/JWebmail/Controller/Webmail.pm
index acf7557..e06a8f7 100644
--- a/lib/JWebmail/Controller/Webmail.pm
+++ b/lib/JWebmail/Controller/Webmail.pm
@@ -3,7 +3,7 @@ package JWebmail::Controller::Webmail;
use Mojo::Base Mojolicious::Controller;
use Carp 'carp';
-use List::Util 'first';
+use List::Util qw(any first);
use Mojo::Util qw(encode decode b64_encode b64_decode);
use Mojolicious::Types;
@@ -141,7 +141,7 @@ sub displayheaders {
my $folders = _time { $self->users->folders($auth) } $self, 'user folders';
- unless ( !$self->stash('folder') || $self->stash('folder') ~~ $folders ) {
+ unless ( !$self->stash('folder') || any { $self->stash('folder') eq $_ } @$folders ) {
$self->render(template => 'error',
status => 404,
error => $self->l('no_folder'),
@@ -305,7 +305,7 @@ sub move {
my $folder = $self->param('folder');
no warnings 'experimental::smartmatch';
- die "$folder not valid" unless $folder ~~ $folders;
+ die "$folder not valid" unless any { $folder eq $_ } @$folders;
$self->users->move($auth, $_, '', $folder) for @$mm;