Add qr/\b{wb}/

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 27338cbd3f..6e4175736e 100644
--- a/perl.c
+++ b/perl.c
@@ -391,6 +391,7 @@ perl_construct(pTHXx)
     PL_XPosix_ptrs[_CC_WORDCHAR] = _new_invlist_C_array(XPosixWord_invlist);
     PL_XPosix_ptrs[_CC_XDIGIT] = _new_invlist_C_array(XPosixXDigit_invlist);
     PL_GCB_invlist = _new_invlist_C_array(Grapheme_Cluster_Break_invlist);
+    PL_WB_invlist = _new_invlist_C_array(Word_Break_invlist);
 
     ENTER;
 }
@@ -1061,6 +1062,7 @@ perl_destruct(pTHXx)
         PL_XPosix_ptrs[i] = NULL;
     }
     PL_GCB_invlist = NULL;
+    PL_WB_invlist = NULL;
 
     if (!specialWARN(PL_compiling.cop_warnings))
 	PerlMemShared_free(PL_compiling.cop_warnings);