#!/usr/bin/perl -w use strict; use ExtUtils::MakeMaker; eval { require 'syscall.ph'; 1 } || eval { require 'sys/syscall.ph'; 1 }; my $SYS_kqueue = eval { &::SYS_kqueue } || 362; my $kq = eval { syscall($SYS_kqueue) }; if ($@) { print < 'KQueue.pm', NAME => 'IO::KQueue', PREREQ_PM => { }, ABSTRACT_FROM => 'KQueue.pm', AUTHOR => 'Matt Sergeant ', clean => {FILES => "tv.log"} ); eval { require ExtUtils::Constant; 1 }; if (!$@) { ExtUtils::Constant::WriteConstants( NAME => 'IO::KQueue', NAMES => [qw( EV_ADD EV_DELETE EV_ENABLE EV_DISABLE EV_ONESHOT EV_CLEAR EV_EOF EV_ERROR EVFILT_READ EVFILT_WRITE EVFILT_VNODE EVFILT_PROC EVFILT_SIGNAL EVFILT_TIMER EVFILT_FS NOTE_LOWAT NOTE_DELETE NOTE_WRITE NOTE_EXTEND NOTE_ATTRIB NOTE_LINK NOTE_RENAME NOTE_REVOKE NOTE_EXIT NOTE_FORK NOTE_EXEC NOTE_PCTRLMASK NOTE_PDATAMASK NOTE_TRACK NOTE_TRACKERR NOTE_CHILD )], ); }