This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/utfhash.t: Fix to work on EBCDIC 1047
authorKarl Williamson <public@khwilliamson.com>
Sat, 6 Apr 2013 19:01:54 +0000 (13:01 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:25 +0000 (21:48 -0700)
commit0dc941edef7722e711d8dec55166524a21ef13d2
tree45c839e1d83c80f64d6e16eb7625b1143a29e59c
parent6aec1cbce591f72d7d2a84ddf67770686b04ae11
t/op/utfhash.t: Fix to work on EBCDIC 1047

This .t thought it could have an __END__ in the middle of DATA input,
and the first read would read in up to that, and the second would read
the rest.  In bisecting, I couldn't find a time when this ever worked.
Now this has a marker, and does a split on that marker, choosing the
first or second half depending.

Note that this only works on ASCII and EBCDIC 1047 platforms.  It could
be extended for the other code pages Perl purportedly supports.
t/op/utfhash.t