diff options
Diffstat (limited to 'lib/JWebmail/Model/ReadMails/MockJSON.pm')
| -rw-r--r-- | lib/JWebmail/Model/ReadMails/MockJSON.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/JWebmail/Model/ReadMails/MockJSON.pm b/lib/JWebmail/Model/ReadMails/MockJSON.pm index f77cd2a..7decb7d 100644 --- a/lib/JWebmail/Model/ReadMails/MockJSON.pm +++ b/lib/JWebmail/Model/ReadMails/MockJSON.pm @@ -69,7 +69,7 @@ sub read_headers_for { } my $s = sub { my $sort_by = $sort; - my $rev = $sort_by !~ m/^![[:lower:]]+/ ? 1 : -1; + my $rev = $sort_by !~ m/^!/ ? 1 : -1; $sort_by =~ s/^!//; return (($a->{$sort_by}||$a->{head}{$sort_by}) cmp ($b->{$sort_by}||$b->{head}{$sort_by})) * $rev; }; |