Re: [PATCH @16611] lib/ExtUtils/t/Constant.t on VMS

On Thu, May 16, 2002 at 02:13:15PM -0500, Craig A. Berry wrote:
> readdir() returns lower-cased filenames, and if there is no extension a 
> trailing dot is present.  This makes the test expect what it will get.

Thanks, applied.

> --- lib/ExtUtils/t/Constant.t;-0        Mon May 13 19:07:15 2002
> +++ lib/ExtUtils/t/Constant.t   Thu May 16 13:47:14 2002
> @@ -648,11 +648,12 @@
>  
>  sub check_for_bonus_files {
>    my $dir = shift;
> -  my %expect = map {$_, 1} @_;
> +  my %expect = map {($^O eq 'VMS' ? lc($_) : $_), 1} @_;
>  
>    my $fail;
>    opendir DIR, $dir or die "opendir '$dir': $!";
>    while (defined (my $entry = readdir DIR)) {
> +    $entry =~ s/\.$// if $^O eq 'VMS';  # delete trailing dot that indicates no extension
>      next if $expect{$entry};
>      print "# Extra file '$entry'\n";
>      $fail = 1;
> [end of patch]

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

• Re: [PATCH @16611] lib/ExtUtils/t/Constant.t on VMS by Jarkko Hietaniemi