home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / bits / syslog.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  492 b   |  18 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_SYSLOG_H)) {
  6.     die("Never include <bits/syslog.h> directly; use <sys/syslog.h> instead.");
  7. }
  8. unless(defined(&syslog)) {
  9.     sub syslog () {    ( &pri, ...)  &__syslog_chk ( &pri,  &__USE_FORTIFY_LEVEL - 1,  &__VA_ARGS__);}
  10. }
  11. if(defined(&__USE_BSD)) {
  12.     eval 'sub vsyslog {
  13.         my($pri, $fmt, $ap) = @_;
  14.         eval q( &__vsyslog_chk ($pri,  &__USE_FORTIFY_LEVEL - 1, $fmt, $ap));
  15.     }' unless defined(&vsyslog);
  16. }
  17. 1;
  18.