diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2009-02-23 11:04:07 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-02-23 16:18:06 +0000 |
| commit | 6df20272fc05b52aa3a7ec48f86429cda721a7f2 (patch) | |
| tree | 94fd5a9c26664a9292616f09ffc018f2920addec /perl.c | |
| parent | 86bddcbfaf2555223ec8fc596416d13d7a1a1118 (diff) | |
| download | perl-6df20272fc05b52aa3a7ec48f86429cda721a7f2.tar.gz | |
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 <jdhedden@cpan.org>
Date: Mon, 23 Feb 2009 10:58:14 -0500
Subject: [PATCH] Fix unused variable warning
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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; |