Proper escaping of URIs.

1 files changed, 2 insertions, 2 deletions

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" );