On Jan 25, 2010, at 6:53 PM, Carl Friedberg wrote:
Running on OpenVMS (AlphaServer) VMS8.3 with
patches through July; and perl 5.8.6.
On 2 nodes, gmtime and localtime is an hour
behind, but correct on the 3rd node. All of
the vms time logicals look like this:
"SYS$TIMEZONE_DAYLIGHT_SAVING" = "0"
"SYS$TIMEZONE_DIFFERENTIAL" = "-18000"
"SYS$TIMEZONE_NAME" = "EST"
"SYS$TIMEZONE_RULE" = "EST5EDT4,M3.2.0/02,M11.1.0/02"
6.0:friedb$ sysman
SYSMAN> set e/c
%SYSMAN-I-ENV, current command environment:
Clusterwide on local cluster
Username FRIEDBERG will be used on nonlocal nodes
---> vms show time is the same on each node:
SYSMAN> do show time
%SYSMAN-I-OUTPUT, command execution on node VMS6
25-JAN-2010 19:43:14
%SYSMAN-I-OUTPUT, command execution on node K
25-JAN-2010 19:43:14
%SYSMAN-I-OUTPUT, command execution on node J
25-JAN-2010 19:43:14
--> gmtime is off on VMS6 and K:
SYSMAN> do perl -e "print scalar(gmtime)"
%SYSMAN-I-OUTPUT, command execution on node VMS6
Mon Jan 25 23:43:22 2010
%SYSMAN-I-OUTPUT, command execution on node K
Mon Jan 25 23:43:22 2010
%SYSMAN-I-OUTPUT, command execution on node J
Tue Jan 26 00:43:22 2010
--> localtime is off on VMS6 and K:
SYSMAN> do perl -e "print scalar(localtime)"
%SYSMAN-I-OUTPUT, command execution on node VMS6
Mon Jan 25 18:43:27 2010
%SYSMAN-I-OUTPUT, command execution on node K
Mon Jan 25 18:43:27 2010
%SYSMAN-I-OUTPUT, command execution on node J
Mon Jan 25 19:43:27 2010
SYSMAN> Exit
6.0:friedb$ perl -v
This is perl, v5.8.6 built for VMS_AXP
It's hard to say with any certainty whether this is Perl or the CRTL
or other configuration gotchas. 5.8.6 is about 6 years old and 5.10.1
is current, so even if this is Perl's fault, it's not going to get
fixed unless the same thing happens against something much more recent.
Not sure it will reveal anything the logical names above don't, but
you can try:
$ @SYS$MANAGER:UTC$TIME_SETUP SHOW
________________________________________
Craig A. Berry
mailto:craigbe...@mac.com
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
