Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-11 04:15:43 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Stop complaining about the configuration file missing -- if it is not there then just assume there is nothing to worry about. This makes the output of the initial run with the 'setup' argument a lot quieter.

Browse Source
This commit is contained in:
ian%hixie.ch 2001-11-08 05:06:27 +00:00
parent 10dc2574fd
commit f9a76a2609
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
webtools/PLIF/PLIF/Database/ConfigurationFile.pm
View File

@ -147,12 +147,17 @@ sub DESTROY {
sub doRead {
my $self = shift;
my($filename) = @_;
local *FILE; # ugh
$self->assert(open(FILE, "<$filename"), 1, "Could not open configuration file '$filename' for reading: $!");
local $/ = undef; # slurp entire file (no record delimiter)
my $settings = <FILE>;
$self->assert(close(FILE), 3, "Could not close configuration file '$filename': $!");
return $settings;
if (-e $filename) {
local *FILE; # ugh
$self->assert(open(FILE, "<$filename"), 1, "Could not open configuration file '$filename' for reading: $!");
local $/ = undef; # slurp entire file (no record delimiter)
my $settings = <FILE>;
$self->assert(close(FILE), 3, "Could not close configuration file '$filename': $!");
return $settings;
} else {
# file doesn't exist, so no configuration to read in
return '';
}
}
sub doWrite {