From 362eeaa190459c405df9a134341fe9923032d16a Mon Sep 17 00:00:00 2001 From: pcanterino <> Date: Wed, 16 Feb 2005 14:10:40 +0000 Subject: [PATCH 1/1] http://forum.de.selfhtml.org/?t=101375&m=622582 This posting in a big german web developer forum sounds very convincing --- modules/File/Access.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/modules/File/Access.pm b/modules/File/Access.pm index dd6403b..ad2bc13 100644 --- a/modules/File/Access.pm +++ b/modules/File/Access.pm @@ -7,7 +7,7 @@ package File::Access; # using only one command # # Author: Patrick Canterino -# Last modified: 2005-02-12 +# Last modified: 2005-02-16 # use strict; @@ -151,7 +151,6 @@ sub file_read($;$) read(FILE, my $content, -s $file); - file_lock(FILE,LOCK_UN) or do { close(FILE); return }; close(FILE) or return; return \$content; @@ -179,7 +178,6 @@ sub file_save($$;$) print FILE $$content or do { close(FILE); return }; - file_lock(FILE,LOCK_UN) or do { close(FILE); return }; close(FILE) or return; return 1; -- 2.34.1