diff options
author | Karl Williamson <khw@cpan.org> | 2015-05-18 10:02:08 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-08-25 16:58:01 -0600 |
commit | 900924803afbe9797cd65fc2e423c8d52b014139 (patch) | |
tree | 19ae03dcbef85d4056bb0c3e4504e621c17c9a92 /t/base | |
parent | 02f1786bedc74672bb8402e240d9c430e0dbb799 (diff) | |
download | perl-900924803afbe9797cd65fc2e423c8d52b014139.tar.gz |
t/base/lex.t: Use more standard test for EBCDIC
This makes it easier to grep for these things. The typical test is for
the ord("A"), not some other character. Since this is in t/base, it
doesn't use helper scripts.
Diffstat (limited to 't/base')
-rw-r--r-- | t/base/lex.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 8862337464..47c6be84b7 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -386,7 +386,7 @@ print "ok $test - call a function in package v10::foo\n"; $test++; print "not " unless (1?v65:"bar") eq chr(65); print "ok $test - colon detection after vstring does not break ? vstring :\n"; $test++; -if (ord("\t") == 9) { +if (ord("A") == 65) { print v35; print "not "; print v10; |