On 27/10/02 20:51 -0500, Patrick LeBoutillier wrote:
> This should do it, it tested fine on Win95 + Linux:
>
> -----8<-----
> 1187c1187
> < _rmtree(File::Spec->catdir($prefix,$rmpath));
> ---
> > _rmtree(File::Spec->catdir($prefix ? ($prefix,$rmpath) : $rmpath));
> 1191c1191
> < $rmpath = File::Spec->catdir($prefix,@parts);
> ---
> > $rmpath = File::Spec->catdir($prefix ? ($prefix,@parts) : @parts);
> ----8<-----
Great!
Thanks, applied.
>
>
> BTW, if you want Inline to make "out of the box" on Win95/98/Me, you can add
> this at the end
> of Makefile.PL:
Does this have any negative impact on Win2k or NT?
>
> -----8<-----
> if ($^O eq 'MSWin32'){
> print "\nFixing Makefile for Win95/98/Me...\n" ;
> open(MAKEFILE, "<Makefile") or die "Can't open Makefile for reading" ;
> my @lines = <MAKEFILE> ;
> close(MAKEFILE) ;
> open(MAKEFILE, ">Makefile") or die "Can't open Makefile for writing" ;
> foreach my $line (@lines){
> if ($line !~ /^\s*((\@\[)|(\]))\s*$/){
> print MAKEFILE $line ;
> }
> }
> close(MAKEFILE) ;
>
> }
> -----8<-----
>
> Then again I may be the only one out there actually doing some
> Perl development on Win95...
There's always somebody...
Cheers, Brian
