Add \b{sb}

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index 6e41757..db079cd 100644 (file)
--- 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_SB_invlist = _new_invlist_C_array(Sentence_Break_invlist);
     PL_WB_invlist = _new_invlist_C_array(Word_Break_invlist);
 
     ENTER;
@@ -1062,6 +1063,7 @@ perl_destruct(pTHXx)
         PL_XPosix_ptrs[i] = NULL;
     }
     PL_GCB_invlist = NULL;
+    PL_SB_invlist = NULL;
     PL_WB_invlist = NULL;
 
     if (!specialWARN(PL_compiling.cop_warnings))