michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

4
backup-config/backup-config-lib.pl
View File

@@ -495,7 +495,7 @@ else {
}
# Validate archive
open(FILE, $file);
open(FILE, "<".$file);
my $two;
read(FILE, $two, 2);
close(FILE);
@@ -537,7 +537,7 @@ my %mfiles;
my @files;
while($m = readdir(DIR)) {
next if ($m eq "." || $m eq ".." || !$hasmod{$m});
open(MAN, "$manifests_dir/$m");
open(MAN, "<$manifests_dir/$m");
my @mfiles;
while(<MAN>) {
s/\r|\n//g;

2
backup-config/backup.cgi
View File

@@ -49,7 +49,7 @@ else {
}
print "Content-type: application/x-gzip\n\n";
my $buf;
open(TEMP, $temp);
open(TEMP, "<$temp");
while(read(TEMP, $buf, 1024)) {
print $buf;
}