diff options
author | Craig A. Berry <craigberry@mac.com> | 2011-12-03 10:36:58 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2011-12-03 10:36:58 -0600 |
commit | db12e2d38b3ae9d4035fb95151828de67a1429c1 (patch) | |
tree | 51a9dfdec4bf4ed3f2bd04f6d3d0f9d41568dcea /perl.c | |
parent | 5a702b9ac51e9c840d6b8bac0725b156789b8972 (diff) | |
download | perl-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.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 |