| Subject: | %P doesn't get translated in $RE{time}{strftime}{-pat => '%H'} |
One-liner:
perl -MRegexp::Common=time -E 'say qr/$RE{time}{strftime}{-pat => q{%P}}/;'
Output is:
(?^u:(?:))
Where something like...
(?^u:(?:[ap]m))
...would be expected.
I'm using perl 5.14.2 on Kubuntu 12.04
J.