diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-31 05:00:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-31 05:00:07 +0000 |
| commit | a901eef84aae580e80c0351bb32ee5bca0f349f7 (patch) | |
| tree | 90198102999120bcafd2308ece135653dc120dad /ext/List | |
| parent | 0be47ac6ef3026eb6eaaf22fb128d8e2d947e0c7 (diff) | |
| download | perl-a901eef84aae580e80c0351bb32ee5bca0f349f7.tar.gz | |
Some low-hanging fruit for EBCDIC portability
(or for marking as EBCDIC todos)
p4raw-id: //depot/perl@19097
Diffstat (limited to 'ext/List')
| -rw-r--r-- | ext/List/Util/t/isvstring.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/List/Util/t/isvstring.t b/ext/List/Util/t/isvstring.t index 1f679ca0ef..9f05a67da6 100644 --- a/ext/List/Util/t/isvstring.t +++ b/ext/List/Util/t/isvstring.t @@ -26,7 +26,7 @@ print "1..4\n"; print "ok 1\n"; -$vs = 49.46.48; +$vs = ord("A") == 193 ? 241.75.240 : 49.46.48; print "not " unless $vs == "1.0"; print "ok 2\n"; |