patch for t/op/chop.t for EBCDIC platform

Hi,

Here is the patch below. Any question, please let me know,
thanks.

--- /home/spring/perl/perl-current/t/op/chop.t  2006-07-12 
14:55:32.000000000 +0800
+++ /home/spring/patch/chgfile/t-op-chop.t      2007-09-11 
17:12:46.000000000 +0800
 -183,7
+183,7 
 eval 'chomp($x, $y) = (1, 2);';
 ok($ =~ /Can't modify.*chom?p.*in.*assignment/);
 
-my chars = ("N", ord('A') == 193 ?
"xee" : "xd3", substr 
("xd4x", 0, 1), chr 1296);
+my chars = ("N", ord('A') == 193 ?
"xee" : "xd3", ord('A') == 193 ? 
substr ("xebx", 0, 1) : substr
("xd4x", 0, 1), chr 1296);
 foreach my $start (chars) {
   foreach my $end (chars) {
     local $/ = $end;



Ge, Chun Bing
空山新雨后，天气晚来秋