changeset 377:5d6f429e5f19 tip

fixed a typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 14 Apr 2009 17:16:43 +0800
parents 6ca0677a361e
children
files Ikariam.pm
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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) {