diff options
author | Karl Williamson <khw@cpan.org> | 2022-06-10 10:51:54 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-06-10 11:02:05 -0600 |
commit | 00a5df846e035280750985222a693ac58022ee36 (patch) | |
tree | fd15365212b65f0199c272c5b61ef2440d3a9972 /mg.c | |
parent | 3669a293c2807f784a64e28ce60335f98d4abf12 (diff) | |
download | perl-00a5df846e035280750985222a693ac58022ee36.tar.gz |
mg.c: Remove Undedfined C behavior
Spotted by clang-14.
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -863,7 +863,6 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) I32 paren; const char *s = NULL; REGEXP *rx; - const char * const remaining = mg->mg_ptr + 1; char nextchar; PERL_ARGS_ASSERT_MAGIC_GET; @@ -879,6 +878,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) return 0; } + const char * const remaining = mg->mg_ptr + 1; + nextchar = *remaining; switch (*mg->mg_ptr) { case '\001': /* ^A */ |