Net-Daemon
view release on metacpan or search on metacpan
431432433434435436437438439440441442443444445446447448449450451
$sock
->error());
$sock
->
close
();
return
;
}
}
}
my
$server
= Calculator->new({
'pidfile'
=>
'none'
,
'localport'
=> 2000}, \
@ARGV
);
$server
->Bind();
KNOWN PROBLEMS
Most, or even any, known problems are related to the Sys::Syslog module
which is by
default
used
for
logging events under Unix. I'll quote some
examples:
Usage: Sys::Syslog::_PATH_LOG at ...
This problem is treated in perl bug 20000712.003. A workaround is
changing line 277 of Syslog.pm to
lib/Net/Daemon.pm view on Meta::CPAN
240241242243244245246247248249250251252253254255256257258259260sub
new ($$;$) {
my
(
$class
,
$attr
,
$args
) =
@_
;
my
(
$self
) =
$attr
? \
%$attr
: {};
bless
(
$self
, (
ref
(
$class
) ||
$class
) );
my
$options
= (
$self
->{
'options'
} ||= {} );
$self
->{
'args'
} ||= [];
if
(
$args
) {
my
@optList
=
map
{
$_
->{
'template'
} }
values
( %{
$class
->Options() } );
local
@ARGV
=
@$args
;
if
( !Getopt::Long::GetOptions(
$options
,
@optList
) ) {
$self
->Usage();
}
@{
$self
->{
'args'
} } =
@ARGV
;
if
(
$options
->{
'help'
} ) {
$self
->Usage();
}
if
(
$options
->{
'version'
} ) {
STDERR
$self
->Version(),
"\n"
;
lib/Net/Daemon.pm view on Meta::CPAN
124212431244124512461247124812491250125112521253125412551256125712581259126012611262
$sock
->error());
$sock
->
close
();
return
;
}
}
}
my
$server
= Calculator->new({
'pidfile'
=>
'none'
,
'localport'
=> 2000}, \
@ARGV
);
$server
->Bind();
=head1 KNOWN PROBLEMS
Most, or even any, known problems are related to the Sys::Syslog module
which is by default used for logging events under Unix. I'll quote some
examples:
=over
( run in 0.252 second using v1.01-cache-2.11-cpan-87723dcf8b7 )