[comp.lang.perl] Patch 18 correction

jv@mh.nl (Johan Vromans) (08/14/90)

While trying to create a fresh source kit from the base distribution
and all of the patches, I found that, IMHO, patch 18 needs correction.

In patch 18 (actually patch 16..18), the files perl.man.1 etc. were
renamed perl_man.1 etc. Configure is used to do the actual rename.
However, the RCS header of the perl_man.? files was not changed,
causing patch 19 (actually patch 19..27) and up to fail.

Look at the following section from patch 18:

 > Index: perl_man.1
 > Prereq: 3.0.1.4
 > *** perl.man.1	Tue Mar 27 16:41:29 1990
 > --- perl_man.1	Tue Mar 27 16:41:34 1990
 > ***************
 > *** 1,7 ****
 >   .rn '' }`
 > ! ''' $Header: perl.man.1,v 3.0.1.4 90/03/12 16:44:33 lwall Locked $
 >   ''' 
->   ''' $Log:	perl.man.1,v $
 >   ''' Revision 3.0.1.4  90/03/12  16:44:33  lwall
 >   ''' patch13: (LIST,) now legal
 >   ''' patch13: improved LIST documentation
 > --- 1,10 ----
 >   .rn '' }`
 > ! ''' $Header: perl_man.1,v 3.0.1.5 90/03/27 16:14:37 lwall Locked $
 >   ''' 
->   ''' $Log:	perl_man.1,v $
 > + ''' Revision 3.0.1.5  90/03/27  16:14:37  lwall
 > + ''' patch16: .. now works using magical string increment
 > + ''' 
 >   ''' Revision 3.0.1.4  90/03/12  16:44:33  lwall
 >   ''' patch13: (LIST,) now legal
 >   ''' patch13: improved LIST documentation
 > ***************

As you can see, the line with '$Log:' is changed WITHOUT BEING MARKED
AS SUCH.

The following patch-to-patch18 corrects this:

*** Patch18~	Wed Mar 28 18:53:58 1990
--- Patch18	Tue Aug 14 14:09:43 1990
***************
*** 419,425
    .rn '' }`
  ! ''' $Header: perl.man.1,v 3.0.1.4 90/03/12 16:44:33 lwall Locked $
    ''' 
!   ''' $Log:	perl.man.1,v $
    ''' Revision 3.0.1.4  90/03/12  16:44:33  lwall
    ''' patch13: (LIST,) now legal
    ''' patch13: improved LIST documentation

--- 419,425 -----
    .rn '' }`
  ! ''' $Header: perl.man.1,v 3.0.1.4 90/03/12 16:44:33 lwall Locked $
    ''' 
! ! ''' $Log:	perl.man.1,v $
    ''' Revision 3.0.1.4  90/03/12  16:44:33  lwall
    ''' patch13: (LIST,) now legal
    ''' patch13: improved LIST documentation
***************
*** 427,433
    .rn '' }`
  ! ''' $Header: perl_man.1,v 3.0.1.5 90/03/27 16:14:37 lwall Locked $
    ''' 
!   ''' $Log:	perl_man.1,v $
  + ''' Revision 3.0.1.5  90/03/27  16:14:37  lwall
  + ''' patch16: .. now works using magical string increment
  + ''' 

--- 427,433 -----
    .rn '' }`
  ! ''' $Header: perl_man.1,v 3.0.1.5 90/03/27 16:14:37 lwall Locked $
    ''' 
! ! ''' $Log:	perl_man.1,v $
  + ''' Revision 3.0.1.5  90/03/27  16:14:37  lwall
  + ''' patch16: .. now works using magical string increment
  + ''' 
***************
*** 469,475
    ''' Beginning of part 2
  ! ''' $Header: perl.man.2,v 3.0.1.4 90/03/12 16:46:02 lwall Locked $
    '''
!   ''' $Log:	perl.man.2,v $
    ''' Revision 3.0.1.4  90/03/12  16:46:02  lwall
    ''' patch13: documented behavior of @array = /noparens/
    ''' 

--- 469,475 -----
    ''' Beginning of part 2
  ! ''' $Header: perl.man.2,v 3.0.1.4 90/03/12 16:46:02 lwall Locked $
    '''
! ! ''' $Log:	perl.man.2,v $
    ''' Revision 3.0.1.4  90/03/12  16:46:02  lwall
    ''' patch13: documented behavior of @array = /noparens/
    ''' 
***************
*** 477,483
    ''' Beginning of part 2
  ! ''' $Header: perl_man.2,v 3.0.1.5 90/03/27 16:15:17 lwall Locked $
    '''
!   ''' $Log:	perl_man.2,v $
  + ''' Revision 3.0.1.5  90/03/27  16:15:17  lwall
  + ''' patch16: MSDOS support
  + ''' 

--- 477,483 -----
    ''' Beginning of part 2
  ! ''' $Header: perl_man.2,v 3.0.1.5 90/03/27 16:15:17 lwall Locked $
    '''
! ! ''' $Log:	perl_man.2,v $
  + ''' Revision 3.0.1.5  90/03/27  16:15:17  lwall
  + ''' patch16: MSDOS support
  + ''' 
***************
*** 512,518
    ''' Beginning of part 3
  ! ''' $Header: perl.man.3,v 3.0.1.5 90/03/12 16:52:21 lwall Locked $
    '''
!   ''' $Log:	perl.man.3,v $
    ''' Revision 3.0.1.5  90/03/12  16:52:21  lwall
    ''' patch13: documented that print $filehandle &foo is ambiguous
    ''' patch13: added splice operator: @oldelems = splice(@array,$offset,$len,LIST)

--- 512,518 -----
    ''' Beginning of part 3
  ! ''' $Header: perl.man.3,v 3.0.1.5 90/03/12 16:52:21 lwall Locked $
    '''
! ! ''' $Log:	perl.man.3,v $
    ''' Revision 3.0.1.5  90/03/12  16:52:21  lwall
    ''' patch13: documented that print $filehandle &foo is ambiguous
    ''' patch13: added splice operator: @oldelems = splice(@array,$offset,$len,LIST)
***************
*** 520,526
    ''' Beginning of part 3
  ! ''' $Header: perl_man.3,v 3.0.1.6 90/03/27 16:17:56 lwall Locked $
    '''
!   ''' $Log:	perl_man.3,v $
  + ''' Revision 3.0.1.6  90/03/27  16:17:56  lwall
  + ''' patch16: MSDOS support
  + ''' 

--- 520,526 -----
    ''' Beginning of part 3
  ! ''' $Header: perl_man.3,v 3.0.1.6 90/03/27 16:17:56 lwall Locked $
    '''
! ! ''' $Log:	perl_man.3,v $
  + ''' Revision 3.0.1.6  90/03/27  16:17:56  lwall
  + ''' patch16: MSDOS support
  + ''' 
***************
*** 554,560
    ''' Beginning of part 4
  ! ''' $Header: perl.man.4,v 3.0.1.7 90/03/14 12:29:50 lwall Locked $
    '''
!   ''' $Log:	perl.man.4,v $
    ''' Revision 3.0.1.7  90/03/14  12:29:50  lwall
    ''' patch15: man page falsely states that you can't subscript array values
    ''' 

--- 554,560 -----
    ''' Beginning of part 4
  ! ''' $Header: perl.man.4,v 3.0.1.7 90/03/14 12:29:50 lwall Locked $
    '''
! ! ''' $Log:	perl.man.4,v $
    ''' Revision 3.0.1.7  90/03/14  12:29:50  lwall
    ''' patch15: man page falsely states that you can't subscript array values
    ''' 
***************
*** 562,568
    ''' Beginning of part 4
  ! ''' $Header: perl_man.4,v 3.0.1.8 90/03/27 16:19:31 lwall Locked $
    '''
!   ''' $Log:	perl_man.4,v $
  + ''' Revision 3.0.1.8  90/03/27  16:19:31  lwall
  + ''' patch16: MSDOS support
  + ''' 

--- 562,568 -----
    ''' Beginning of part 4
  ! ''' $Header: perl_man.4,v 3.0.1.8 90/03/27 16:19:31 lwall Locked $
    '''
! ! ''' $Log:	perl_man.4,v $
  + ''' Revision 3.0.1.8  90/03/27  16:19:31  lwall
  + ''' patch16: MSDOS support
  + ''' 

Regards,

	Johan
-- 
Johan Vromans				       jv@mh.nl via internet backbones
Multihouse Automatisering bv		       uucp: ..!{uunet,hp4nl}!mh.nl!jv
Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
------------------------ "Arms are made for hugging" -------------------------