[perl.git] branch blead, updated. GitLive-blead-692-g6df2027

[Nicholas Clark]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/6df20272fc05b52aa3a7ec48f86429cda721a7f2?hp=86bddcbfaf2555223ec8fc596416d13d7a1a1118>

- Log -----------------------------------------------------------------
commit 6df20272fc05b52aa3a7ec48f86429cda721a7f2
Author: Jerry D. Hedden <jdhed...@cpan.org>
Date:   Mon Feb 23 11:04:07 2009 -0500

    Fix unused variable warning
    
    Attached patch fixes the following build warnings:
    
    perlmini.c: In function `S_incpush':
    perlmini.c:4358: warning: unused variable `addoldvers'
    
    perl.c: In function `S_incpush':
    perl.c:4358: warning: unused variable `addoldvers'
    
    From 87b6dbeb18691177a2b2e8dc971da242ac831c03 Mon Sep 17 00:00:00 2001
    From: Jerry D. Hedden <jdhed...@cpan.org>
    Date: Mon, 23 Feb 2009 10:58:14 -0500
    Subject: [PATCH] Fix unused variable warning
-----------------------------------------------------------------------

Summary of changes:
 perl.c |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/perl.c b/perl.c
index 684fd80..67b4d5b 100644
--- a/perl.c
+++ b/perl.c
@@ -4355,7 +4355,9 @@ S_incpush(pTHX_ const char *const dir, STRLEN len, U32 
flags)
        = (U8)flags & INCPUSH_ADD_VERSIONED_SUB_DIRS;
     const U8 add_archonly_sub_dirs
        = (U8)flags & INCPUSH_ADD_ARCHONLY_SUB_DIRS;
+#ifdef PERL_INC_VERSION_LIST
     const U8 addoldvers  = (U8)flags & INCPUSH_ADD_OLD_VERS;
+#endif
     const U8 canrelocate = (U8)flags & INCPUSH_CAN_RELOCATE;
     const U8 unshift     = (U8)flags & INCPUSH_UNSHIFT;
     const U8 push_basedir = (flags & INCPUSH_NOT_BASEDIR) ? 0 : 1;

--
Perl5 Master Repository