This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
declaration after code nit in vms/vms.c (from Martin Vorlaender)
authorCraig A. Berry <craigberry@mac.com>
Fri, 8 Sep 2006 02:07:30 +0000 (02:07 +0000)
committerCraig A. Berry <craigberry@mac.com>
Fri, 8 Sep 2006 02:07:30 +0000 (02:07 +0000)
p4raw-id: //depot/perl@28806

vms/vms.c

index dc97685..e4fe676 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -1357,8 +1357,9 @@ prime_env_iter(void)
          */
         char lnm[LNM$C_NAMLENGTH+1];
         char eqv[MAX_DCL_SYMBOL+1];
+        int trnlen;
         strncpy(lnm, key, keylen);
-        int trnlen = vmstrnenv(lnm, eqv, 0, fildev, 0);
+        trnlen = vmstrnenv(lnm, eqv, 0, fildev, 0);
         sv = newSVpvn(eqv, strlen(eqv));
       }
       else {