diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-09-09 19:39:07 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-11-26 21:03:39 -0700 |
| commit | 6c6eab558a00ed52629a7966596424346615a595 (patch) | |
| tree | 035878572a7bb8c6c9f7609e90fe961ddea13bf7 | |
| parent | 46f3e16cfc41a4d949826dcd68ab50e346fc3f25 (diff) | |
| download | perl-6c6eab558a00ed52629a7966596424346615a595.tar.gz | |
mg.c: Reorder if else clauses
This is to allow two cases in the switch statement to be combined in the
next commit. There should be no effective logic change
| -rw-r--r-- | mg.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -788,7 +788,11 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) sv_setiv(sv, (IV)(PL_debug & DEBUG_MASK)); break; case '\005': /* ^E */ - if (nextchar == '\0') { + if (nextchar != '\0') { + if (strEQ(remaining, "NCODING")) + sv_setsv(sv, PL_encoding); + } + else { #if defined(VMS) { char msg[255]; @@ -834,8 +838,6 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) SvRTRIM(sv); SvNOK_on(sv); /* what a wonderful hack! */ } - else if (strEQ(remaining, "NCODING")) - sv_setsv(sv, PL_encoding); break; case '!': |