From b81740c0c3e6a549e6766887035f48b39a45557c Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 2 Dec 2012 18:47:23 -0700 Subject: [PATCH] utf8.c: Move ARGS_ASSERT to earlier in function to a place where people more expect to see it. --- utf8.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utf8.c b/utf8.c index 70620af..820fa82 100644 --- a/utf8.c +++ b/utf8.c @@ -3924,6 +3924,8 @@ Perl__swash_to_invlist(pTHX_ SV* const swash) SV* invlist; + PERL_ARGS_ASSERT__SWASH_TO_INVLIST; + /* If not a hash, it must be the swash's inversion list instead */ if (SvTYPE(hv) != SVt_PVHV) { return (SV*) hv; @@ -3940,8 +3942,6 @@ Perl__swash_to_invlist(pTHX_ SV* const swash) bits = SvUV(*bitssvp); octets = bits >> 3; /* if bits == 1, then octets == 0 */ - PERL_ARGS_ASSERT__SWASH_TO_INVLIST; - /* read $swash->{LIST} */ if (SvPOK(*listsvp)) { l = (U8*)SvPV(*listsvp, lcur); -- 2.7.4