Fixed repeated regex serialization
- Before the fix regexes would grow endlessly:
use YAML; #use YAML::XS;
use Encode;
my $yaml = decode_utf8 q{re : !!perl/regexp OK};
for (1..5) {
$data = Load $yaml;
$yaml = Dump $data;
}
say $yaml;
__END__
re: !!perl/regexp (?^u:(?^u:(?^u:(?^u:(?^u:OK)))))