Craig A. Berry <[EMAIL PROTECTED]> wrote:
> Martin Vorlaender wrote:
....
> Hmm. It's assuming it needs to deassign the one it defined in
> descrip.mms, but for you that didn't happen because of the
> system-level definition. The following appears to work so we should
> probably do this instead:
>
> --- vms/test.com;-0 Sat Jun 1 12:03:53 2002
> +++ vms/test.com Fri Jun 28 14:22:31 2002
> @@ -64,7 +64,7 @@
> $ Copy/Log/NoConfirm [-]VMSPIPE.COM []
> $!
> $! This may be set for the C compiler in descrip.mms, but
> it confuses the File::Find tests
> -$ if f$trnlnm("sys") .nes. "" then DeAssign sys
> +$ if f$trnlnm("sys") .nes. "" then Define sys " "
> $!
> $! And do it
> $ Set Message /NoFacility/NoSeverity/NoIdentification/NoText
> [end of patch]
I'll test that when I have more time.
> >lib/File/Spec/t/rel2abs2rel..........FAILED at test 4
>
> Does the current working directory have a concealed device name in it?
Bingo. If I SET DEFAULT to the perl source directory without using
a concealed device name, everything's groovy.
> >lib/vmsish...........................FAILED at test 22
> >
> >In singular testing I get
> >
> >not ok 22 - (time) UTC:1025256379 VMS:1025256379
> >not ok 23 - (localtime)
> ># UTC: 19 26 11 28 5 102 5 178 -1
> ># VMS: 19 26 11 28 5 102 5 178 -1
> >not ok 24 - (gmtime)
> ># UTC: 19 26 9 28 5 102 5 178 0
> ># VMS: 19 26 9 28 5 102 5 178 0
> >not ok 25 - (stat) UTC: 1022943813 VMS: 1022943813
>
> Is your SYS$TIMEZONE_DIFFERENTIAL zero? I seem to remember there is
> a test that frequently fails when that is the case.
Sorry, but no. I'll look into that test when I have more time <sigh>.
On first sight:
main::([.lib]vmsish.t:120): $vmsmtime = (stat $0)[9];
DB<2> x @vmslocal
0 16
1 42
2 9
3 1
4 6
5 102
6 1
7 181
8 '-1'
DB<3> x @vmsgmtime
0 16
1 42
2 7
3 1
4 6
5 102
6 1
7 181
8 0
DB<4> p $ENV{'SYS$TIMEZONE_DIFFERENTIAL'}
7200
DB<5>
This looks about right, including the $isdst field.
cu,
Martin
--
OpenVMS: | Martin Vorlaender VMS & WNT programmer
When you KNOW | work: [EMAIL PROTECTED]
where you want | http://www.pdv-systeme.de/users/martinv/
to go today. | home: [EMAIL PROTECTED]
