Searched refs:setlogsock (Results 1 - 2 of 2) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/t/ |
| H A D | syslog.t | 52 can_ok( 'Sys::Syslog' => qw(openlog syslog syslog setlogmask setlogsock closelog) );
57 # setlogsock()
58 eval { setlogsock() };
59 like( $@, qr/^Invalid argument passed to setlogsock/,
60 "calling setlogsock() with no argument" );
90 eval { setlogsock($sock_type) };
91 is( $@, '', "setlogsock() called with '$sock_type'" );
94 ok( $r, "setlogsock() should return true: '$r'" );
126 # setlogsock() called with an arrayref
127 $r = eval { setlogsock([
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/ |
| H A D | Syslog.pm | 19 extended => [qw(setlogsock)],
140 # with the infamous setlogsock() function.
190 sub setlogsock { subroutine
195 = "Invalid argument passed to setlogsock; must be 'stream', 'pipe', "
227 warnings::warnif "stream passed to setlogsock, but could not find any device";
233 warnings::warnif "stream passed to setlogsock, but $syslog_path is not writable";
244 warnings::warnif 'unix passed to setlogsock, but path not available';
256 warnings::warnif "pipe passed to setlogsock, but path not available";
269 warnings::warnif "eventlog passed to setlogsock, but no Win32 API available";
279 warnings::warnif "tcp passed to setlogsock, bu
[all...] |
Completed in 15 milliseconds