Did Perl 5.6 break Coy?

[Brent Fulgham]

>    > Water falls on a rock.
>    > A small gift from neophyte
>    > to the great teacher.
> 
> When the student can
> patch the teacher's broken code,
> who is the master?
> 
> Many thanks, grasshopper.
> 

Tale of the Cricket
-----------------------------
Boasting broadly of
the great help he provided.
Grasshopper was proud.

But the lizard said
your map routine is too slow.
Use 'substr' instead.

Benchmark.pm				# Note:  Syllabals are right if you
read it out
shows you to be thirty
percent too slow.

Ashamed, Grasshopper
must provide you a new patch.
Better luck this time.

-Brent


begin 600 coy-2.diff
M9&EF9B`M=V%R=3, at +R]C+W-C<F%T8V at O0V]Y+3`N,#4N;W)I9R]L:6(O3&EN
M9W5A+T5.+TEN9FQE8W0N<&T at +R]C+W-C<F%T8V at O0V]Y+3`N,#4O;&EB+TQI
M;F=U82]%3B]);F9L96-T+G!M#0HM+2T at +R]C+W-C<F%T8V at O0V]Y+3`N,#4N
M;W)I9R]L:6(O3&EN9W5A+T5.+TEN9FQE8W0N<&T)5&AU(%-E<"`@.2`P,#HS
M.3HP-"`Q.3DY#0HK*RL at +R]C+W-C<F%T8V at O0V]Y+3`N,#4O;&EB+TQI;F=U
M82]%3B]);F9L96-T+G!M"5=E9"!!=6<@,S`@,#DZ,S at Z-30@,C`P,`T*0$`@
M+3$S-RPW("LQ,S<L-R!`0`T*(`T*(", at 0TQ!4U-)0T%,("(N+F$B("T^("(N
M+F%T82(-"B`-"BUM>2`D4$Q?<V)?0U]A7V%T82`](&IO:6X@(GPB+"!M87`@
M>R!C:&]P.R`D7SL@?0T**VUY("103%]S8E]#7V%?871A(#T@:F]I;B`B?"(L
M(&UA<"![('-U8G-T<B`D7RP@,"P at +3$@?0T*("@-"B`)(F%N871H96UA(BP@
M(F)E;6$B+"`B8V%R8VEN;VUA(BP@(F-H87)I<VUA(BP@(F1I<&QO;6$B+`T*
M(`DB9&]G;6$B+"`B9')A;6$B+"`B961E;6$B+"`B96YE;6$B+"`B96YI9VUA
M(BP@(FQE;6UA(BP-"D!`("TQ-C0L,30@*S$V-"PQ-"!`0`T*(`T*(", at 0TQ!
M4U-)0T%,("(N+F5N(B`M/B`B+BYI;F$B#0H@#0HM;7D@)%!,7W-B7T-?96Y?
M:6YA(#T@:F]I;B`B?"(L(&UA<"![(&-H;W`[(&-H;W`[("1?.R!]#0HK;7D@
M)%!,7W-B7T-?96Y?:6YA(#T@:F]I;B`B?"(L(&UA<"![('-U8G-T<B`D7RP@
M,"P at +3(@?0T*("@-"B`)(G-T86UE;B(L"2)F;W)A;65N(BP)(FQU;65N(BP-
M"B`I.PT*(`T*(", at 54Y#3TY$251)3TY!3"`B+BYU;2(@+3X@(BXN82(-"B`-
M"BUM>2`D4$Q?<V)?55]U;5]A(#T@:F]I;B`B?"(L(&UA<"![(&-H;W`[(&-H
M;W`[("1?.R!]#0HK;7D@)%!,7W-B7U5?=6U?82`](&IO:6X@(GPB+"!M87`@
M>R!S=6)S='(@)%\L(#`L("TR('T-"B`H#0H@"2)B86-T97)I=6TB+`DB86=E
M;F1U;2(L"2)D97-I9&5R871U;2(L"2)E<G)A='5M(BP-"B`)(G-T<F%T=6TB
M+`DB9&%T=6TB+`DB;W9U;2(L"0DB97AT<F5M=6TB+`T*0$`@+3$X,"PW("LQ
M.#`L-R!`0`T*(`T*(", at 0TQ!4U-)0T%,("(N+G5M(B`M/B`B+BYA(@T*(`T*
M+6UY("103%]S8E]#7W5M7V$@/2!J;VEN(")\(BP@;6%P('L at 8VAO<#L at 8VAO
M<#L@)%\[('T-"BMM>2`D4$Q?<V)?0U]U;5]A(#T@:F]I;B`B?"(L(&UA<"![
M('-U8G-T<B`D7RP@,"P at +3(@?0T*("@-"B`)(FUA>&EM=6TB+`DB;6EN:6UU
M;2(L"2)M;VUE;G1U;2(L"2)O<'1I;75M(BP-"B`)(G%U86YT=6TB+`DB8W)A
M;FEU;2(L"2)C=7)R:6-U;'5M(BP)(F1I8W1U;2(L#0I`0"`M,3DT+#<@*S$Y
M-"PW($!`#0H@#0H@(R!53D-/3D1)5$E/3D%,("(N+G5S(B`M/B`B:2(-"B`-
M"BUM>2`D4$Q?<V)?55]U<U]I(#T@:F]I;B`B?"(L(&UA<"![(&-H;W`[(&-H
M;W`[("1?.R!]#0HK;7D@)%!,7W-B7U5?=7-?:2`](&IO:6X@(GPB+"!M87`@
M>R!S=6)S='(@)%\L(#`L("TR('T-"B`H#0H@"2)A;'5M;G5S(BP)(F%L=F5O
M;'5S(BP)(F)A8VEL;'5S(BP)(F)R;VYC:'5S(BP-"B`)(FQO8W5S(BP)(FYU
M8VQE=7,B+`DB<W1I;75L=7,B+`DB;65N:7-C=7,B+`T*0$`@+3(P,BPW("LR
M,#(L-R!`0`T*(`T*(", at 0TQ!4U-)0T%,("(N+G5S(B`M/B`B+BYI(@T*(`T*
M+6UY("103%]S8E]#7W5S7VD@/2!J;VEN(")\(BP@;6%P('L at 8VAO<#L at 8VAO
M<#L@)%\[('T-"BMM>2`D4$Q?<V)?0U]U<U]I(#T@:F]I;B`B?"(L(&UA<"![
M('-U8G-T<B`D7RP@,"P at +3(@?0T*("@-"B`)(F9O8W5S(BP)(G)A9&EU<R(L
M"2)G96YI=7,B+`T*(`DB:6YC=6)U<R(L"2)S=6-C=6)U<R(L"2)N:6UB=7,B
M+`T*0$`@+3(R,2PW("LR,C$L-R!`0`T*(`T*(", at 54Y#3TY$251)3TY!3"`B
M+BYO;B(@+3X@(F$B#0H@#0HM;7D@)%!,7W-B7U5?;VY?82`](&IO:6X@(GPB
M+"!M87`@>R!C:&]P.R!C:&]P.R`D7SL@?0T**VUY("103%]S8E]57V]N7V$@
M/2!J;VEN(")\(BP@;6%P('L@<W5B<W1R("1?+"`P+"`M,B!]#0H@*`T*(`DB
M8W)I=&5R:6]N(BP)(G!E<FEH96QI;VXB+`DB87!H96QI;VXB+`T*(`DB<&AE
M;F]M96YO;B(L"2)P<F]L96=O;65N;VXB+`DB;F]U;65N;VXB+`T*0$`@+3(S
M,"PW("LR,S`L-R!`0`T*(`T*(", at 0TQ!4U-)0T%,("(N+F]N(B`M/B`B+BYA
M(@T*(`T*+6UY("103%]S8E]#7V]N7V$@/2!J;VEN(")\(BP@;6%P('L at 8VAO
M<#L at 8VAO<#L@)%\[('T-"BMM>2`D4$Q?<V)?0U]O;E]A(#T@:F]I;B`B?"(L
M(&UA<"![('-U8G-T<B`D7RP@,"P at +3(@?0T*("@-"B`)(F]X>6UO<F]N(BP-
M"B`I.PT*0$`@+3(V-2PQ-"`K,C8U+#$T($!`#0H@#0H@(R!53D-/3D1)5$E/
M3D%,("(N+F5X(B`M/B`B+BYI8V5S(@T*(`T*+6UY("103%]S8E]57V5X7VEC
M97,@/2!J;VEN(")\(BP@;6%P('L at 8VAO<#L at 8VAO<#L@)%\[('T-"BMM>2`D
M4$Q?<V)?55]E>%]I8V5S(#T@:F]I;B`B?"(L(&UA<"![('-U8G-T<B`D7RP@
M,"P at +3(@?0T*("@-"B`)(F-O9&5X(BP)(FUU<F5X(BP)(G-I;&5X(BP-"B`I
M.PT*(`T*(", at 0TQ!4U-)0T%,("(N+F5X(B`M/B`B+BYI8V5S(@T*(`T*+6UY
M("103%]S8E]#7V5X7VEC97,@/2!J;VEN(")\(BP@;6%P('L at 8VAO<#L at 8VAO
M<#L@)%\[('T-"BMM>2`D4$Q?<V)?0U]E>%]I8V5S(#T@:F]I;B`B?"(L(&UA
M<"![('-U8G-T<B`D7RP@,"P at +3(@?0T*("@-"B`)(G9O<G1E>"(L"2)V97)T
M97 at B+`DB8V]R=&5X(BP)(FQA=&5X(BP-"B`)(G!O;G1I9F5X(BP)(F%P97 at B
8+`D)(FEN9&5X(BP)(G-I;7!L97 at B+`T*
`
end