On Thu, 17 Aug 2000, Peter Prymmer wrote:
>
>
> 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
Craig knows about this one. It's a bit worrying since the line is just:
print "# TMPFILE: Wrote line: $original";
print $fh $original
or die "Error printing to tempfile\n";
so is trying to write some text to the tempfile that was created. It's
almost like the temp file has been created for read :-)
>
> and:
>
> $ perl lib/ftmp-tempfile.t
> 1..16
> 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.
These two are caused by the temporary file being deleted on
close. UNLINK=>0 is meant to do nothing on close -- these tests check
that
1. the file is still there
2. the subsequent unlink works (to tidy up).
I have no idea why the temp file is being deleted automatically.
--
Tim Jenness
JCMT software engineer/Support scientist
http://www.jach.hawaii.edu/~timj
