YAML::XS perl/regexp (?u:(?u:

Boldra has asked for the wisdom of the Perl Monks concerning the following question:

My YAML being read is

---
NODE:
  match: !!perl/regexp (?^ui:OK\ Server\ Connection\ 1\.001)
[download]

After loading/dumping it looks like this

---
NODE:
  match: !!perl/regexp (?^u:(?^ui:OK\ Server\ Connection\ 1\.001))
[download]

After 20 load/dump cycles it looks like this:

---
NODE:
  match: !!perl/regexp (?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?
+^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^u:(?^ui:OK\
    Server\ Connection\ 1\.001)))))))))))))))))))))
[download]

My test:

perl -MYAML::XS -E 'my $y=YAML::XS::Load(q{---\nNODE:\n  match: !!perl
+/regexp (?i-xsm:OK\ Server\ Connection\ 1\.001)}); for(1..20) { $y=Lo
+ad(Dump($y)) }; say Dump($y)'
[download]

$YAML::XS::VERSION = 0.66
perl v5.24.3

If I let it run long enough, eventually the parser breaks down. Does anyone have any suggestions?

- Boldra

Back to Seekers of Perl Wisdom