diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-19 19:27:57 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-19 19:27:57 +0000 |
| commit | c4d5f83add3e03ac76c328ed8a29701d939174ce (patch) | |
| tree | 10e9eac6978b40c3c26b5eff7d3142003a73190a /t/op/ver.t | |
| parent | 63cd067459124b5dc1d2ae98453df4ffdff11607 (diff) | |
| download | perl-c4d5f83add3e03ac76c328ed8a29701d939174ce.tar.gz | |
More EBCDIC fixes.
p4raw-id: //depot/perlio@9246
Diffstat (limited to 't/op/ver.t')
| -rwxr-xr-x | t/op/ver.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/ver.t b/t/op/ver.t index b9ba5891f0..e248a48482 100755 --- a/t/op/ver.t +++ b/t/op/ver.t @@ -114,7 +114,7 @@ print "not " unless sprintf("%*vb", "##", v1.22.333.4444) print "ok $test\n"; ++$test; print "not " unless sprintf("%vd", join("", map { chr } - unpack "U*", v2001.2002.2003)) + unpack 'U*', pack('U*',2001,2002,2003))) eq '2001.2002.2003'; print "ok $test\n"; ++$test; |