The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Wx::build::MakeMaker;
use Wx::build::MakeMaker;
use ExtUtils::MakeMaker qw[ prompt ];

sub findWxwin {
    my @dirs;
    for('c'..'z'){
        my @files = glob $_.':/wxWindows*';
        push @dirs,@files if @files;
    }
    return shift @dirs;
}

$ENV{WXDIR} = $ENV{WXWIN} if $ENV{WXWIN};
$ENV{WXDIR} = $ENV{WXWIN} if $ENV{WXDIR};

unless( $ENV{WXDIR} or $ENV{WXWIN} ) {
    $ENV{WXWIN} = prompt('Where is WXWIN? (aka WXDIR) ', findWxwin() );
    $ENV{WXDIR} = $ENV{WXWIN};
}

$ENV{WXWIN} = $ENV{WXDIR};

print qq[
using:
    WXWIN => $ENV{WXWIN}
    WXDIR => $ENV{WXDIR}



];


wxWriteMakefile( NAME         => 'Wx::Metafile',
                 VERSION_FROM => 'Metafile.pm',
               );