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 $ _______________________________________________ Bug-make mailing list Bug-make@gnu.org https://lists.gnu.org/mailman/listinfo/bug-make
