Re: [bug #41758] VMS Make incorrectly reports archives support present.

[h.becker]

On 06/02/2014 06:22 AM, John E. Malmberg wrote:
> I have not traced down why the perl touch method is not working on VMS
> object files used for the librarian tests.  All I know right now is that
> it does not work for me.  Since I have a workaround, I am not
> investigating it.

As far as I can see, in perl utouch calls touch which appends a '\n' to
the file. It's the additional record which creates problems.

$ libr /cre x
$ cc z
$ fats z.obj
File USR_ODS5:[BECKER_H.z]z.OBJ;1
credate=" 2-JUN-2014 13:34:30.86"
moddate=" 2-JUN-2014 13:34:30.86"
expdate="17-NOV-1858 00:00:00.00"
bakdate="17-NOV-1858 00:00:00.00"
accdate="17-NOV-1858 00:00:00.00"
attdate=" 2-JUN-2014 13:34:31.11"
org=seq
rfm=var
rat=none
lrl=72
hbk=3
ebk=1
ffb=246
bks=0
fsz=0
deq=0
mrs=0
gbc=0
vrs=0
$ search t.pl z.obj
&utouch(-3600, 'z.OBJ');
$ perl t.pl
$ fats z.obj
File USR_ODS5:[BECKER_H.z]z.OBJ;1
credate=" 2-JUN-2014 13:34:30.86"
moddate=" 2-JUN-2014 12:35:21.00"
expdate="17-NOV-1858 00:00:00.00"
bakdate="17-NOV-1858 00:00:00.00"
accdate="17-NOV-1858 00:00:00.00"
attdate=" 2-JUN-2014 12:35:21.00"
org=seq
rfm=var
rat=none
lrl=72
hbk=3
ebk=1
ffb=250
bks=0
fsz=0
deq=0
mrs=0
gbc=0
vrs=0
$ lib x z
%LIBRAR-E-SEQNCE, illegal record sequence in module  in
USR_ODS5:[BECKER_H.z]z.OBJ;1
$