Add evalbytes function

This function evaluates its argument as a byte string, regardless of
the internal encoding.  It croaks if the string contains characters
outside the byte range.  Hence evalbytes(" use utf8; '\xc4\x80' ")
will return "\x{100}", even if the original string had the UTF8 flag
on, and evalbytes(" '\xc4\x80' ") will return "\xc4\x80".

This has the side effect of fixing the deparsing of CORE::break under
‘use feature’ when there is an override.

1 files changed, 3 insertions, 0 deletions

diff --git a/regen/keywords.pl b/regen/keywords.pl
index 5f7f1ef851..c4cd187273 100755
--- a/regen/keywords.pl
+++ b/regen/keywords.pl
@@ -45,6 +45,8 @@ my %feature_kw = (
 	say     => 'say',
 
 	state	=> 'state',
+
+	evalbytes=>'evalbytes',
 	);
 
 my %pos = map { ($_ => 1) } @{$by_strength{'+'}};
@@ -165,6 +167,7 @@ __END__
 -eof
 -eq
 +eval
+-evalbytes
 -exec
 +exists
 -exit