utf8.c: Move ARGS_ASSERT to earlier in function
authorKarl Williamson <public@khwilliamson.com>
Mon, 3 Dec 2012 01:47:23 +0000 (18:47 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 9 Dec 2012 16:47:17 +0000 (09:47 -0700)
to a place where people more expect to see it.

utf8.c

index 70620af..820fa82 100644 (file)
--- 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);