diff -Naur --exclude '*~' sympa-5.4.3/src/List.pm sympa-5.4.3-dont-redefine-constants/src/List.pm
--- sympa-5.4.3/src/List.pm	2008-04-10 11:26:52.000000000 +0200
+++ sympa-5.4.3-dont-redefine-constants/src/List.pm	2008-07-05 17:35:54.000000000 +0200
@@ -36,10 +36,7 @@
 my @ISA = qw(Exporter);
 my @EXPORT = qw(%list_of_lists);
 
-sub LOCK_SH {1};
-sub LOCK_EX {2};
-sub LOCK_NB {4};
-sub LOCK_UN {8};
+use Fcntl qw(LOCK_SH LOCK_EX LOCK_NB);
 
 =head1 CONSTRUCTOR
 
diff -Naur --exclude '*~' sympa-5.4.3/src/Lock.pm sympa-5.4.3-dont-redefine-constants/src/Lock.pm
--- sympa-5.4.3/src/Lock.pm	2008-03-28 11:12:36.000000000 +0100
+++ sympa-5.4.3-dont-redefine-constants/src/Lock.pm	2008-07-05 17:35:56.000000000 +0200
@@ -35,11 +35,6 @@
 use Fcntl qw(LOCK_SH LOCK_EX LOCK_NB);
 use FileHandle;
 
-sub LOCK_SH {1};
-sub LOCK_EX {2};
-sub LOCK_NB {4};
-sub LOCK_UN {8};
-
 my %list_of_locks;
 my $default_timeout = 60 * 20; ## After this period a lock can be stolen