The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

# (c) Sound Object Logic 2000-2001

use vars qw( $intrusive );
$intrusive = 1;
require 't/set.t';