Switch all calls to open() to explicitly open for read

This commit is contained in:
Jamie Cameron
2020-03-14 17:20:54 -07:00
parent 3093838b5b
commit a2dc3f7124
248 changed files with 548 additions and 552 deletions

View File

@@ -119,7 +119,7 @@ sub read_file
{
local($arr);
$arr = $_[1];
open(ARFILE, $_[0]) || return 0;
open(ARFILE, "<".$_[0]) || return 0;
while(<ARFILE>) {
s/\r|\n//g;
if (!/^#/ && /^([^=]+)=(.*)$/) { $$arr{$1} = $2; }
@@ -134,7 +134,7 @@ sub write_file
{
local($arr);
$arr = $_[1];
open(ARFILE, "> $_[0]");
open(ARFILE, ">".$_[0]);
foreach $k (keys %$arr) {
print ARFILE "$k=$$arr{$k}\n";
}