diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2008-03-23 09:29:25 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-03-24 08:25:46 +0000 |
| commit | ed1b9de06a0ca967d0a805d341b8c031df2a4b41 (patch) | |
| tree | 694b192ae018f00653ab7597ac65bd2104fd0275 /vms/vms.c | |
| parent | 216dac0429f7f2def8388be78bca5dd81baf8702 (diff) | |
| download | perl-ed1b9de06a0ca967d0a805d341b8c031df2a4b41.tar.gz | |
configure.com and vms.c fixes.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <47E6AF95.1000704@qsl.net>
p4raw-id: //depot/perl@33550
Diffstat (limited to 'vms/vms.c')
| -rw-r--r-- | vms/vms.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -2568,6 +2568,9 @@ int unix_status; case RMS$_WLK: /* Device write locked */ unix_status = EACCES; break; + case RMS$_MKD: /* Failed to mark for delete */ + unix_status = EPERM; + break; /* case RMS$_NMF: */ /* No more files */ } } @@ -10433,7 +10436,7 @@ Perl_my_flush(pTHX_ FILE *fp) if ((res = fflush(fp)) == 0 && fp) { #ifdef VMS_DO_SOCKETS Stat_t s; - if (fstat(fileno(fp), (stat_t *)&s) == 0 && !S_ISSOCK(s.st_mode)) + if (fstat(fileno(fp), &s.crtl_stat) == 0 && !S_ISSOCK(s.st_mode)) #endif res = fsync(fileno(fp)); } |