diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-12 18:09:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-12 18:09:41 +0000 |
| commit | 1d7c184104c076988718a01b77c8706aae05b092 (patch) | |
| tree | dcfa50ebf2bdc26c54db7728f6c79288856a8024 /t/op/pack.t | |
| parent | 70401c6b81f84e7fa2f97451ac473505c0d13373 (diff) | |
| download | perl-1d7c184104c076988718a01b77c8706aae05b092.tar.gz | |
integrate mainline changes
p4raw-id: //depot/utfperl@4679
Diffstat (limited to 't/op/pack.t')
| -rwxr-xr-x | t/op/pack.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 11ada3905d..2d34311f1f 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -381,7 +381,9 @@ print $@ eq '' && $x eq 'ab3456789012' ? "ok $test\n" : "not ok $test\n"; $test++; eval { ($x) = unpack 'a/a*/b*', '212ab' }; -print $@ eq '' && $x eq '100001100100' ? "ok $test\n" : "#$x,$@\nnot ok $test\n"; +my $expected_x = '100001100100'; +if ($Config{ebcdic} eq 'define') { $expected_x = '100000010100'; } +print $@ eq '' && $x eq $expected_x ? "ok $test\n" : "#$x,$@\nnot ok $test\n"; $test++; # 153..156: / with # |