[perl #40370] [PATCH] code_coda.t update

[Jerry Gay via RT]

thanks, applied as r14671.
~jerry