RE: question about perl -i bug

["Ralf Habacker" <Ralf dot Habacker at freenet dot de>]

Why do you have subcribed to this list ? What do you expect ?

Ralf 


> -----Original Message-----
> From: Riaan Labuschagne [mailto:Riaan@radioretail.co.za]
> Sent: Friday, November 30, 2001 8:02 AM
> To: Ralf Habacker
> Cc: cygwin-apps@cygwin.com
> Subject: RE: question about perl -i bug
> 
> 
> How do I get off this damn mailing list?
> 
> Can anyone help!!!!
> 
> This is the response I keep getting back from the cygwin-apps@cygwin.com
> mailing list.
> 
> -----Original Message-----
> From: Ralf Habacker [mailto:Ralf.Habacker@freenet.de] 
> Sent: Thursday, November 29, 2001 3:12 PM
> To: Gerrit P. Haase
> Cc: Cygwin-Apps
> Subject: RE: question about perl -i bug
> 
> 
> Hi,
> this patch fixes the "permission denied error for cygwin when inplace
> editing". It provides an internal backup extension, if the -i option is set
> without a backup extension, so this may be more a pracmatical workaround as
> a real bug fix, but it works and costs only 1 hour instead an "ideal" fix
> would cost about 5-8 hours. So this is very economical.  :-)
> 
> ----------------------------------------------------------------------------
> ---
> ChangeLog
> ____________________________________________________________________________
> [  ????] By: ????                                 on 2001/11/29  13:37:00
>         Log: fixed permission denied error for cygwin when inplace editing
>      Branch:
>            ! perl.c
> 
> ----------------------------------------------------------------------------
> ---
> 
> $ diff -ubBp perl.c.org perl.c
> --- perl.c.org  Wed Nov 28 09:34:24 2001
> +++ perl.c      Thu Nov 29 12:35:36 2001
> @@ -2135,6 +2135,12 @@ Perl_moreswitches(pTHX_ char *s)
>      case 'i':
>         if (PL_inplace)
>             Safefree(PL_inplace);
> +#if defined(__CYGWIN__)
> +  if (*(s+1) == '\0') {
> +      PL_inplace = savepv(".bak");
> +      return s+1;
> +       }
> +#endif
>         PL_inplace = savepv(s+1);
>         /*SUPPRESS 530*/
>         for (s = PL_inplace; *s && !isSPACE(*s); s++) ;
> 
> -----------------------------------------------------------------
> 
> > I use this kind of script to build bleadperl:
> <snip>
> 
> Hmmh, I have done the foolowing like described in the INSTALL file and it
> works for 99%
> 
>         rm -f config.sh Policy.sh
>         sh Configure -de
>         make
>         make test
>         make install
> 
> The "make install" fails with an "install is up to date" error I don't know
> why so I have choosed "make install-silent" or "install-verbose" and it
> goes.
> 
> After that I have tried preparing a kde package from cvs for configureing
> and it worked (except another bug in make (.PHONY:cvs need in
> admin/Makefile.common ), but this will be fixed next.
> 
> One question: Can anyone verify this patch ?
> 
> Second question: When this fix is okay, can someone tell me when an updated
> perl package will be available on cygwin ? I'm asking because we like to
> open the kde2 cvs archive in the next time and for that we need an updated
> perl.
> 
> Regards Ralf
> 
>