#!/usr/bin/perl -w # $Id: wheel_sf_unix.t 14 2007-11-20 00:30:32Z andyg $ use strict; use lib qw(t/30_loops/00_base); use Test::More; use POSIX qw(_exit); BEGIN { require 'begin_devpoll.pm'; } require 'wheel_sf_unix.pm'; _exit 0 if $^O eq 'MSWin32'; CORE::exit 0;