# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1239700603 -28800
# Node ID 5d6f429e5f1903d8fe84d37da97c9f1298b030bc
# Parent  6ca0677a361eebc1619e0f3ddb4e9ea7c7e1214b
fixed a typo.

diff -r 6ca0677a361e -r 5d6f429e5f19 Ikariam.pm
--- a/Ikariam.pm	Tue Apr 14 17:02:17 2009 +0800
+++ b/Ikariam.pm	Tue Apr 14 17:16:43 2009 +0800
@@ -1330,7 +1330,7 @@
     # lock
     open LOCKFILE, ">>.ikariam.lck" or die "Cannot open lock_file";
     flock(LOCKFILE, LOCK_EX);
-    $self->{lock} = \&LOCKFILE;
+    $self->{lock} = \*LOCKFILE;
 
     while (1) {