develooper Front page | perl.perl5.porters | Postings from March 2006

[patch@27538] utime patch for VMS

Thread Next
From:
John E. Malmberg
Date:
March 20, 2006 05:12
Subject:
[patch@27538] utime patch for VMS
Message ID:
441EAA33.6010603@qsl.net
The patch changes the utime emulation in vms.c to handle pathnames 
longer than 255 characters when the rest of that support is enabled.

It also changes the Perl_my_utime() call to use the real utime() call 
when the DECC$_EFS_CHARSET feature is enabled so that the times of a 
file on an ODS-5 volume can be properly set.

Changed files:

Configure.com - Detect utime.h header file and configure accordingly.

vms/vmsish.h - If utime.h header file exists, use it, to make sure that 
the structure is properly aligned.  Do not hide the utime() function 
from vms.c.

vms/vms.c - If DECC$_EFS_CHARSET enabled, use built in utime() function 
instead of emulation, and convert the input times from local to utc if 
the vmsish pragma is set.  Also use rmsexpand() instead of tovmsspec() 
to convert the path name to VMS, as rmsexpand() makes sure that the 
resulting VMS file specification will fit in 255 characters.

-John
wb8tyw@qsl.net
Personal Opinion Only

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About