Alien-wxWidgets-0.69\inc\My\Build\Win32.pm
sub massage_environment {
    my( $self ) = shift;

    if( $self->notes( 'build_wx' ) ) {
        $ENV{WXWIN} = $ENV{WXDIR} = File::Spec->rel2abs
          ( $self->notes( 'build_data' )->{data}{directory} );
        $ENV{SHELL} = 'cmd.exe' if $Config::Config{sh}=~/cmd/i;
        
        my $mingw_gcc = My::Build::Base->awx_path_search( '*-gcc-*.exe' ); # i686-w64-mingw32-gcc-4.6.3.exe
        my $basename = File::Basename::basename($mingw_gcc, '.exe' );
        $basename = "libexec/gcc/$1/$2" if $basename =~ m{^(.+?)-gcc-(.+)}is;
        my $new_path = File::Spec->rel2abs(
            File::Spec->catfile(
                File::Basename::dirname($mingw_gcc) ,
                File::Spec->updir, 
                $basename
            )
        );
#~         die "SHELL=$ENV{SHELL}\n$mingw_gcc\n$basename\n$new_path";
        $ENV{PATH}.=';'.$new_path;
## didnt work

    }
}