syslog.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
print "1..0 # Skip: Sys::Syslog was not built\n";
exit 0;
}
require Socket;
# This code inspired by Sys::Syslog::connect():
exit 0;
}
}
BEGIN {
print "1..0 # Skipped: missing macros\n";
exit 0;
}
}
}
print "1..6\n";
}
else {
for (1..3) {
print
"ok $_ # skipping, file ",
" does not exist\n";
}
}
}
else {
for (1..3) { print "ok $_ # skipping, _PATH_LOG unavailable\n" }
}