From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 1 Sep 2000 12:03:38 +0000 (-0700)
Subject: Re: [PATCH perl@6962] 2 more vms.c fix-ups and status
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e991d507a1922f23c17e1df98527eee77bfbdba5;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/vms/vms.c b/vms/vms.c
index 8e56d30..d9ea5fa 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -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, ':') );