view release on metacpan or  search on metacpan

alienfile  view on Meta::CPAN

      if(msys_is_okay($ENV{PERL_ALIEN_MSYS_BIN}))
      {
        $build->runtime_prop->{my_type} = 'PERL_ALIEN_MSYS_BIN';
        $build->runtime_prop->{my_bin} = path($ENV{PERL_ALIEN_MSYS_BIN})->stringify;
        return 'system';
      }
    }

    if(my $uname_exe = which('uname'))
    {
      my $bin_dir = path($uname_exe)->parent->stringify;
      my $uname = `$uname_exe`;
      if($uname =~ /^(MSYS|MINGW(32|64))_NT/ && msys_is_okay($bin_dir)) {
        $build->runtime_prop->{my_type} =  'found uname in PATH';
        $build->runtime_prop->{my_bin} = $bin_dir;
        return 'system';
      }
    }

    if(my $mingw_get = which('mingw-get.exe'))
    {
      my $bin_dir = path($mingw_get)->parent->parent->child('msys/1.0/bin')->stringify;
      if(msys_is_okay($bin_dir))
      {
        $build->runtime_prop->{my_type} =  'relative to mingw-get.exe';
        $build->runtime_prop->{my_bin} = $bin_dir;
        return 'system';
      }
    }

    foreach my $maybe (qw( C:\MinGW\msys\1.0\bin ))
    {

alienfile  view on Meta::CPAN

    }

    my $path = eval {
      require Win32;
      require Win32::Shortcut;
      my $lnk_name = path(Win32::GetFolderPath(Win32::CSIDL_DESKTOP(), 1))->child('MinGW Installer.lnk')->canonpath;
      die "No MinGW Installer.lnk" unless -r $lnk_name;
      my $lnk = Win32::Shortcut->new;
      $lnk->Load($lnk_name);
      my $mingw_get = path($lnk->{Path});
      my $bin_dir = path($mingw_get)->parent->child('msys/1.0/bin');
      if(msys_is_okay($bin_dir))
      {
        $build->runtime_prop->{my_type} =  'MinGW Installer shortcut';
        $build->runtime_prop->{my_bin} = $bin_dir;
        return 'system';
      }
    };

    return 'share';
  }