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.
