Re^4: YAML::XS perl/regexp (?u:(?u:

in reply to Re^3: YAML::XS perl/regexp (?u:(?u:
in thread YAML::XS perl/regexp (?u:(?u:

Another possibility would be to continue just using a string. Check with regexp_pattern(), if there are any flags (ignoring u), just store the stringified regex, otherwise store the pattern itself. This would still lead to unnecessary (?:...) but it wouldn't grow in roundtrips.
Have been looking into universal.c how regexp_pattern() is implemented. At the moment it's too much magic for me to understand.

Comment on Re^4: YAML::XS perl/regexp (?u:(?u: Select or Download Code

Replies are listed 'Best First'.
Re^5: YAML::XS perl/regexp (?u:(?u: by ikegami (Pope) on Dec 20, 2017 at 15:57 UTC
I don't know what you mean by "check with `regexp_pattern()`, if there are any flags (ignoring `u`)". Do you mean "check if the results of `( regexp_pattern(qr/$pat/) )[1]` contains anything but `u`"? It never will (unless you use `use re "/..."`, which would be bad here).	[reply] [d/l] [select]
Re^6: YAML::XS perl/regexp (?u:(?u: by tinita (Parson) on Dec 20, 2017 at 23:05 UTC
I mean, when Dump()ing a regex, not when Load()ing it.	[reply]
Re^7: YAML::XS perl/regexp (?u:(?u: by ikegami (Pope) on Dec 21, 2017 at 21:55 UTC
oic what you mean. When serializing, if there are no flags, use the current syntax, but exclude the wrapping `(?:...)`.	[reply] [d/l]

In Section Seekers of Perl Wisdom