From 2bece6abde54881bb074dd44e7f87885eab4a777 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sat, 29 Sep 2012 02:03:21 +0200
Subject: Proper escaping of URIs.

---
 misc/mklist/INSTALL   | 4 ++--
 misc/mklist/mklist.pl | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'misc/mklist')

diff --git a/misc/mklist/INSTALL b/misc/mklist/INSTALL
index 660bcf9..7164217 100644
--- a/misc/mklist/INSTALL
+++ b/misc/mklist/INSTALL
@@ -37,7 +37,7 @@ Postfix's master.cf
     mklist-mailman unix  -  n       n       -       -       pipe
       flags=FR directory=/opt/fripost-panel/ user=list:list
       argv=/opt/fripost-panel/misc/mklist/mklist.pl mailman ${size}
-    
+
     mklist-schleuder unix - n       n       -       -       pipe
       flags=FR directory=/opt/fripost-panel/ user=schleuder:schleuder
       argv=/opt/fripost-panel/misc/mklist/mklist.pl schleuder ${size}
@@ -50,7 +50,7 @@ Postfix's main.cf
     mklist-mailman_destination_concurrency_limit = 1
     mklist-mailman_destination_recpipient_limit = 1
     mklist-mailman_time_limit = 10m
-    
+
     mklist-schleuder_destination_concurrency_limit = 1
     mklist-schleuder_destination_recpipient_limit = 1
     mklist-schleuder_time_limit = 2h
diff --git a/misc/mklist/mklist.pl b/misc/mklist/mklist.pl
index 3223c45..6d0b6b2 100755
--- a/misc/mklist/mklist.pl
+++ b/misc/mklist/mklist.pl
@@ -30,14 +30,14 @@ use lib 'lib';
 use Mail::GnuPG;
 use MIME::Parser;
 use MIME::QuotedPrint;
-use Net::IDN::Encode qw/email_to_ascii/;
+use Net::IDN::Encode 'email_to_ascii';
 use Fripost::Schema;
 
 my $transport = shift;
 pod2usage(2) unless defined $transport and
                     grep { $transport eq $_}
                          qw/mailman schleuder/;
-my $configdir = catdir('/','etc','mklist');
+my $configdir = catdir(qw(/ etc mklist));
 my $config = Config::Auto::parse( catfile($configdir, 'config'),
                                   format => "equal" );
 
-- 
cgit v1.2.3