projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Integrate mainline
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
split.t
diff --git
a/t/op/split.t
b/t/op/split.t
index
9e0beee
..
db23c90
100755
(executable)
--- a/
t/op/split.t
+++ b/
t/op/split.t
@@
-193,12
+193,13
@@
print "ok 32\n";
}
{
+ my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20";
+
if (ord('A') == 193) {
print "ok 36 # Skip: EBCDIC\n";
} else {
# bug id 20000426.003
- my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20";
my ($a, $b, $c) = split(/\x40/, $s);
print "not "