Re: [Module::Build] make test failure report (Cygwin)

[Ken W. <ke...@ma...>]

Applied, thanks.

  -Ken

On Wednesday, October 15, 2003, at 11:44  PM, Randy W. Sims wrote:
> patch attached.
>
> Randy.
> diff -ur Module-Build-0.21-orig/t/common.pl 
> Module-Build-0.21/t/common.pl
> --- Module-Build-0.21-orig/t/common.pl	2003-10-16 00:38:57.000000000 
> -0400
> +++ Module-Build-0.21/t/common.pl	2003-10-16 00:29:57.000000000 -0400
> @@ -36,4 +36,21 @@
>    return <$fh>;
>  }
>
> +sub find_in_path {
> +  my $thing = shift;
> +
> +  require Config;
> +  my @path = split $Config{path_sep}, $ENV{PATH};
> +  my @exe_ext = $^O eq 'MSWin32' ? ('', # may have extension already
> +    split($Config{path_sep}, $ENV{PATHEXT} || '.com;.exe;.bat')) :
> +    ('');
> +  foreach (@path) {
> +    my $fullpath = File::Spec->catfile($_, $thing);
> +    foreach my $ext ( @exe_ext ) {
> +      return "$fullpath$ext" if -e "$fullpath$ext";
> +    }
> +  }
> +  return;
> +}
> +
>  1;
> diff -ur Module-Build-0.21-orig/t/compat.t Module-Build-0.21/t/compat.t
> --- Module-Build-0.21-orig/t/compat.t	2003-10-16 00:38:57.000000000 
> -0400
> +++ Module-Build-0.21/t/compat.t	2003-10-16 00:32:33.000000000 -0400
> @@ -6,7 +6,8 @@
>  use Config;
>  require File::Spec->catfile('t', 'common.pl');
>
> -skip_test("Don't know how to invoke 'make'") unless $Config{make};
> +skip_test("Don't know how to invoke 'make'")
> +  unless $Config{make} and find_in_path($Config{make});
>  plan tests => 2 + 3*13;
>  ok(1);  # Loaded
>