diff options
author | dakkar <dakkar@thenautilus.net> | 2012-12-09 16:14:39 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2012-12-09 16:14:39 +0000 |
commit | caff4f3e7174e4adcf7d22cbc9769f132abae900 (patch) | |
tree | 61c5d3578705f0f5cd7ac9d8343e59d9f587205b /lib/Feed/Role/MailDir.pm | |
parent | utility functions (diff) | |
download | feeder-caff4f3e7174e4adcf7d22cbc9769f132abae900.tar.gz feeder-caff4f3e7174e4adcf7d22cbc9769f132abae900.tar.bz2 feeder-caff4f3e7174e4adcf7d22cbc9769f132abae900.zip |
lower perl version requirement
Diffstat (limited to 'lib/Feed/Role/MailDir.pm')
-rw-r--r-- | lib/Feed/Role/MailDir.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Feed/Role/MailDir.pm b/lib/Feed/Role/MailDir.pm index f7cfc20..e53cd7f 100644 --- a/lib/Feed/Role/MailDir.pm +++ b/lib/Feed/Role/MailDir.pm @@ -1,6 +1,6 @@ package Feed::Role::MailDir; use Moose::Role; -use 5.016; +use 5.012; use namespace::autoclean; use Encode; use Encode::IMAPUTF7; @@ -49,7 +49,7 @@ sub process_entry { } sub _clean_folder_part { - return map { s{\W+}{-}gr } @_; + return map { my $a=$_;$a=~s{\W+}{-}g;$a } @_; } sub maildir_folder_for { |