diff options
| author | fukachan <fukachan> | 2002-05-24 06:36:58 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-24 06:36:58 +0000 |
| commit | 5ac9ee8724034d2d3c6c0d87c9ea5dd982b4effa (patch) | |
| tree | 778d7e6a51114151e2196b851d88862c2965d161 /fml | |
| parent | 0a027af7d7cab057c128b5f5377c7f3eeac67bec (diff) | |
| download | fml8-5ac9ee8724034d2d3c6c0d87c9ea5dd982b4effa.tar.gz fml8-5ac9ee8724034d2d3c6c0d87c9ea5dd982b4effa.tar.bz2 fml8-5ac9ee8724034d2d3c6c0d87c9ea5dd982b4effa.zip | |
print STDERR $msg if Log() fails
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Log.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm index 2cd9b2c2..65bc1ba0 100644 --- a/fml/lib/FML/Log.pm +++ b/fml/lib/FML/Log.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000 Ken'ichi Fukamachi # -# $FML: Log.pm,v 1.15 2001/12/23 11:37:06 fukachan Exp $ +# $FML: Log.pm,v 1.16 2001/12/23 11:39:44 fukachan Exp $ # package FML::Log; @@ -148,7 +148,13 @@ sub LogWarn sub LogError { my ($mesg, $args) = @_; - Log("error: ".$mesg, $args); + + eval q{ + Log("error: ".$mesg, $args); + }; + if ($@) { + print STDERR "error: ", $mesg, "\n"; + } } |