X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/8b44ea28c7eb989926e06b0fd8b861e13af05a26..7febe1a1710566c5d66cdbd125fd81fb0f89512f:/modules/File/Access.pm?ds=inline diff --git a/modules/File/Access.pm b/modules/File/Access.pm index 6f84b3f..6c3862b 100644 --- a/modules/File/Access.pm +++ b/modules/File/Access.pm @@ -7,7 +7,7 @@ package File::Access; # with only one command # # Author: Patrick Canterino -# Last modified: 2003-10-13 +# Last modified: 2003-12-01 # use strict; @@ -87,8 +87,8 @@ sub file_create($) return if(-e $file); - open(FILE,">",$file) or return; - close(FILE) or return; + open(FILE,">$file") or return; + close(FILE) or return; return 1; } @@ -106,9 +106,9 @@ sub file_read($) my $file = shift; local *FILE; - open(FILE,"<",$file) or return; + open(FILE,"<$file") or return; read(FILE, my $content, -s $file); - close(FILE) or return; + close(FILE) or return; return \$content; } @@ -125,15 +125,12 @@ sub file_read($) sub file_save($$) { my ($file,$content) = @_; - my $temp = $file.".temp"; local *FILE; - open(FILE,">",$temp) or return; + open(FILE,">$file") or return; print FILE $$content or do { close(FILE); return }; close(FILE) or return; - rename($temp,$file) or return; - return 1; }