[perl #126438] [BUG] regex match hang up

[via RT]

# New Ticket Created by  gfw blackcat 
# Please include the string:  [perl #126438]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=126438 >


The below code will hang up.



source:

say '+0877' ~~ /^+/;



I think it should be /^\+/