In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/db12e2d38b3ae9d4035fb95151828de67a1429c1?hp=5a702b9ac51e9c840d6b8bac0725b156789b8972>
- Log ----------------------------------------------------------------- commit db12e2d38b3ae9d4035fb95151828de67a1429c1 Author: Craig A. Berry <[email protected]> Date: Sat Dec 3 10:36:58 2011 -0600 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. ----------------------------------------------------------------------- Summary of changes: perl.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/perl.c b/perl.c index 013549e..48ef5e0 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 -- Perl5 Master Repository
