summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/utf8.c b/utf8.c
index edae6ba5c4..0da2c0197d 100644
--- a/utf8.c
+++ b/utf8.c
@@ -3111,8 +3111,8 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 m
/* Here, there is no swash already. Set up a minimal one, if
* we are going to return a swash */
if ((int) _invlist_len(invlist) > invlist_swash_boundary) {
- swash_hv = newHV();
- retval = newRV_inc(MUTABLE_SV(swash_hv));
+ swash_hv = newHV();
+ retval = newRV_inc(MUTABLE_SV(swash_hv));
}
swash_invlist = invlist;
}