- Faster deparsing of strings with code points > 127 and < 256 -- no …

…state variable is created
trizen · Dec 17, 2015 · e7c3756 · e7c3756
1 parent d5df49d
commit e7c3756
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Sidef/Deparse/Perl.pm b/lib/Sidef/Deparse/Perl.pm
@@ -129,7 +129,7 @@ HEADER
         # Make sure that code-points between 128 and 256
         # will be stored internally as UTF-8 strings.
         if ($str =~ /[\200-\400]/) {
-            return "do {state \$x = do {require Encode; Encode::decode_utf8(Encode::encode_utf8($d))}}";
+            return "do {require Encode; Encode::decode_utf8(Encode::encode_utf8($d))}";
         }
 
         $d;