[perl #126746] [BUG] doesn't match at EOS

[via RT]

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


> p6 'say "a" ~~ m/<![a]>/'
False