diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2012-05-09 16:03:49 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2012-05-09 16:03:49 +0000 |
| commit | 0a015759fe56248a6f18e65b2667d48b40ec10e5 (patch) | |
| tree | 430dd29baaeec9e8e8a80410322d8bc500f6ec80 /modules/log.pl | |
| parent | 1797c15c9842b1b91893c5b7289ce4542ff2b823 (diff) | |
Don't die when unable to print to a log file
Diffstat (limited to 'modules/log.pl')
| -rw-r--r-- | modules/log.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/modules/log.pl b/modules/log.pl index 581f70b..8b30eab 100644 --- a/modules/log.pl +++ b/modules/log.pl @@ -46,9 +46,12 @@ sub logg my $nostamp = $_; $_ = strftime($cfg->{timefmt}, @time) . $_ . "\n"; my $line = $_; - open(FH, $path) or die "Can't open $path: $!"; - print FH $line; - close(FH); + if (open(FH, $path)) { # or die "Can't open $path: $!"; + print FH $line; + close(FH); + } else { + print "COULDN'T PRINT TO $path - $line"; + } if (defined($::spy{$chan})) { my $spy = $::spy{$chan}; print $spy $chan .": " . $nostamp . "\n"; |