diff options
| author | Niko Tyni <ntyni@iki.fi> | 2005-09-28 13:11:17 +0200 |
|---|---|---|
| committer | Niko Tyni <ntyni@iki.fi> | 2005-09-28 13:11:17 +0200 |
| commit | 72c6bc1c53f52e66e1b5e8d70b00ff2476b1b220 (patch) | |
| tree | 8c45fe3d880200215fd641176c6efbf9aed5753d /lib/Smokeping.pm | |
| parent | ec993081f760b7af33e60c14717ea9f557b1881f (diff) | |
| download | smokeping-72c6bc1c53f52e66e1b5e8d70b00ff2476b1b220.tar.gz smokeping-72c6bc1c53f52e66e1b5e8d70b00ff2476b1b220.tar.xz | |
* (trunk)/
doc/smokeping_install.pod,
doc/smokeping_upgrade.pod,
lib/Smokeping.pm,
CHANGES:
+ make having an older version of CGI::Carp a non-fatal error and
recommend a newer one in the docs
Diffstat (limited to 'lib/Smokeping.pm')
| -rw-r--r-- | lib/Smokeping.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Smokeping.pm b/lib/Smokeping.pm index 6b5f4a2..1e56c66 100644 --- a/lib/Smokeping.pm +++ b/lib/Smokeping.pm @@ -2472,7 +2472,9 @@ sub daemonize_me ($) { sub initialize_cgilog (){ $use_cgilog = 1; - CGI::Carp::set_progname($0 . " [client " . ($ENV{REMOTE_ADDR}||"(unknown)") . "]"); + # set_progname() is available starting with CGI.pm-2.82 / Perl 5.8.1 + # so trap this inside 'eval' + eval 'CGI::Carp::set_progname($0 . " [client " . ($ENV{REMOTE_ADDR}||"(unknown)") . "]")'; $logging=1; } |