On Wed, 16 Aug 2000, Tim Jenness wrote:
> Try this patch against bleedperl:
>
> --- lib/File/Temp.pm.ori Wed Aug 16 14:09:32 2000
> +++ lib/File/Temp.pm Wed Aug 16 14:09:49 2000
> @@ -384,7 +384,8 @@
> + if ( $^O eq 'VMS' && !$options{"unlink_on_close"}) {
> + # make it auto delete on close on VMS if required
OK with this applied to 6677 I still see:
[.lib]ftmp-posix........FAILED on test 6
[.lib]ftmp-security.....ok
[.lib]ftmp-tempfile.....FAILED on test 14
I am sorry to report. Here are some gorier details (I haven't followed
this issue as carefully as Craig has):
$ perl lib/ftmp-posix.t
1..7
ok 1
# TMPNAM: in a scalar context:
ok 2
# TMPNAM file name: USER:[PVHP]UklE8UeJo6
# TMPNAM: in list context: VMS::Stdio=GLOB(0x432e20) USER:[PVHP]Xyq5JJ7eZR
ok 3
ok 4
ok 5
# TMPFILE: tmpfile got FH VMS::Stdio=GLOB(0x414820)
# TMPFILE: Wrote line: Hello a test
Error printing to tempfile
%RMS-E-EOF, end of file detected
and:
$ perl lib/ftmp-tempfile.t
1..16
ok 1
ok 2
# Template: tmpdirXXXXXX
# TEMPDIR: []tmpdir7pDHMG
ok 3
# TEMPFILE: Created []h11t0YU9VI.dat
ok 4
ok 5
# TEMPFILE: Created []MPOCLmkytn
# TEMPFILE: Created []hellodVnRM0d.dat
ok 6
# TEMPFILE: Created permdcHhosZ
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
not ok 14
# Failed test 14 in lib/ftmp-tempfile.t at line 24
not ok 15
# Failed test 15 in lib/ftmp-tempfile.t at line 25
ok 16
For what it is worth at this time. I'll try to take a closer look...
uh sometime.
Peter Prymmer
