On Sun, Nov 25, 2001 at 08:05:28PM -0700, chromatic wrote: > +BEGIN { > + if ($^O =~ /cygwin/i) { > + plan tests => 17; > + $ENV{'ExtUtils/MM_Unix.pm'} = 1;
$ENV{'ExtUtils/MM_Unix.pm'} ?? Maybe this supposed to be %INC? > +# test cflags, with the fake package below > +my $args = ExtUtils::MM_Unix->new({ > + CFLAGS => 'fakeflags', > + CCFLAGS => '', > +}); You should be playing with MM objects instead. ExtUtils::MM_Cygwin will handle setting @MM::ISA. So just write a little MM->new instead. This also means... > +# with CFLAGS set, it should be returned > +is( ExtUtils::MM_Cygwin::cflags($args), 'fakeflags', > + 'cflags() should return CFLAGS member data, if set' ); ....that you can call cflags() and the rest properly as methods. -- Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/ Perl Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One We don't know. But if we did, we wouldn't tell you.