diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-01 15:28:37 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2015-12-01 16:01:49 +0000 |
commit | a9e2d2bf108c854f14f15556d0be30d9635bcde7 (patch) | |
tree | 50410820358aa75af15e7e80c56628f56e1ffded /mg.c | |
parent | 50006c82290de7fc1fd3bbb5e4d893723659dd82 (diff) | |
download | perl-a9e2d2bf108c854f14f15556d0be30d9635bcde7.tar.gz |
Perl_magic_set(): remove unused var 's'
This var is (mostly) unused, but is set in a couple of places, hence:
mg.c:2657:17: warning: variable āsā set but not used
In the one place it is used, declare it in a narrower scope.
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -2654,7 +2654,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #ifdef USE_ITHREADS dVAR; #endif - const char *s; I32 paren; const REGEXP * rx; I32 i; @@ -2706,10 +2705,12 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) case '\004': /* ^D */ #ifdef DEBUGGING - s = SvPV_nolen_const(sv); - PL_debug = get_debug_opts(&s, 0) | DEBUG_TOP_FLAG; - if (DEBUG_x_TEST || DEBUG_B_TEST) - dump_all_perl(!DEBUG_B_TEST); + { + const char *s = SvPV_nolen_const(sv); + PL_debug = get_debug_opts(&s, 0) | DEBUG_TOP_FLAG; + if (DEBUG_x_TEST || DEBUG_B_TEST) + dump_all_perl(!DEBUG_B_TEST); + } #else PL_debug = (SvIV(sv)) | DEBUG_TOP_FLAG; #endif @@ -2903,12 +2904,12 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; case '^': Safefree(IoTOP_NAME(GvIOp(PL_defoutgv))); - s = IoTOP_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); + IoTOP_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); IoTOP_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); break; case '~': Safefree(IoFMT_NAME(GvIOp(PL_defoutgv))); - s = IoFMT_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); + IoFMT_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); IoFMT_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); break; case '=': |