summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2011-12-03 10:36:58 -0600
committerCraig A. Berry <craigberry@mac.com>2011-12-03 10:36:58 -0600
commitdb12e2d38b3ae9d4035fb95151828de67a1429c1 (patch)
tree51a9dfdec4bf4ed3f2bd04f6d3d0f9d41568dcea /perl.c
parent5a702b9ac51e9c840d6b8bac0725b156789b8972 (diff)
downloadperl-db12e2d38b3ae9d4035fb95151828de67a1429c1.tar.gz
VMS-specific scope fix for S_mayberelocate.
Back in 3185893b8dec106 I moved some code from the beginning of one block to the middle of a different block. Bad me. The compiler has been lax about allowing declarations in the middle of a block, so we haven't noticed. But as of c29067d7797853039, the code moved to a new function while leaving the block it was in behind and we end up with conflicting declarations of len. Making our own block seems like the safest thing to do. The indentation in this section of code is a bit wacky -- I chose the least intrusive alternative for clearer blame logs.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 013549ed3c..48ef5e02dd 100644
--- a/perl.c
+++ b/perl.c
@@ -4451,6 +4451,7 @@ S_mayberelocate(pTHX_ const char *const dir, STRLEN len, U32 flags)
}
#ifdef VMS
+ {
char *unix;
STRLEN len;
@@ -4463,6 +4464,7 @@ S_mayberelocate(pTHX_ const char *const dir, STRLEN len, U32 flags)
PerlIO_printf(Perl_error_log,
"Failed to unixify @INC element \"%s\"\n",
SvPV(libdir,len));
+ }
#endif
/* Do the if() outside the #ifdef to avoid warnings about an unused