On Fri, Mar 22, 2002 at 03:47:38PM -0600, Craig A. Berry wrote:
> This accounts for the fact that files with no extension appear with a
> trailing dot and all filenames are currently reported in lower case (though
> they may be mixed case in the future).
>
> --- lib/h2xs.t;-0 Wed Mar 20 15:10:54 2002
> +++ lib/h2xs.t Fri Mar 22 15:43:06 2002
> @@ -176,6 +176,10 @@
> $_ = ':' . join(':',split(/\//,$_));
> $_ =~ s/$name:t:1.t/$name:t\/1.t/; # is this an h2xs bug?
> }
> + if ($^O eq 'VMS') {
> + $_ .= '.' unless $_ =~ m/\./;
> + $_ = lc($_) unless exists $got{$_};
> + }
Thanks, applied.
> ok (-e $_, "check for $_") and delete $got{$_};
> }
> my @extra = keys %got;
> [end of patch]
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
