diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-09-01 05:03:38 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-01 20:40:11 +0000 |
| commit | e991d507a1922f23c17e1df98527eee77bfbdba5 (patch) | |
| tree | 073c67ed348f77ead2a48f476844b34a380d7713 /vms | |
| parent | 6e684814ce2b1f2763f57632f39da7a0ed5157f5 (diff) | |
| download | perl-e991d507a1922f23c17e1df98527eee77bfbdba5.tar.gz | |
Re: [PATCH perl@6962] 2 more vms.c fix-ups and status
Message-ID: <Pine.OSF.4.10.10009011140240.147696-100000@aspara.forte.com>
p4raw-id: //depot/perl@6991
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -5579,6 +5579,7 @@ is_null_device(name) bool Perl_cando(pTHX_ Mode_t bit, Uid_t effective, Stat_t *statbufp) { + char fname_phdev[NAM$C_MAXRSS+1]; if (statbufp == &PL_statcache) return cando_by_name(bit,effective,namecache); else { char fname[NAM$C_MAXRSS+1]; @@ -5602,7 +5603,6 @@ Perl_cando(pTHX_ Mode_t bit, Uid_t effective, Stat_t *statbufp) * but if someone has redefined that logical, Perl gets very lost. Since * we have the physical device name from the stat buffer, just paste it on. */ - char fname_phdev[NAM$C_MAXRSS+1]; strcpy( fname_phdev, statbufp->st_devnam ); strcat( fname_phdev, strrchr(fname, ':') ); |