From aa3340e58fc5b993bfc88070edf543a2ed82ef94 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 27 Sep 2012 03:32:46 +0200
Subject: Fixing unicode.

---
 lib/Fripost/Schema/List.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Fripost/Schema/List.pm')

diff --git a/lib/Fripost/Schema/List.pm b/lib/Fripost/Schema/List.pm
index edf9d24..87876f6 100644
--- a/lib/Fripost/Schema/List.pm
+++ b/lib/Fripost/Schema/List.pm
@@ -117,7 +117,7 @@ sub add {
         die "Missing list name\n" if $l eq '';
         must_attrs( $l, 'transport' );
         &_is_valid($l);
-        die "‘".$l->{list}."‘ already exists\n"
+        die "‘".$l->{list}."’ already exists\n"
             if $self->local->exists($l->{list},%options);
 
         my %attrs = ( objectClass => 'FripostVirtualList'
@@ -177,7 +177,7 @@ sub is_pending {
                     scope => 'base',
                     deref => 'never',
                     filter => 'objectClass=FripostVirtualList',
-                    attrs => [ 'fvl', 'fripostIsStatusPending' ]
+                    attrs => [ 'fripostIsStatusPending' ]
                   );
     die "Error: ".$l.'@'.$d.": No such object in the LDAP directory\n"
         if $mesg->code == 32; # No such object; a common error here.
@@ -265,7 +265,7 @@ sub _is_valid {
     must_attrs( $l, qw/list isactive/ );
     $l->{list} = email_valid( $l->{list}, -exact => 1 );
 
-    die "Invalid transport: ‘".$l->{transport}."‘\n"
+    die "Invalid transport: ‘".$l->{transport}."’\n"
         if defined $l->{transport} and
             $l->{transport} !~ /^(schleuder|mailman)$/;
     # TODO: check commands
-- 
cgit v1.2.3