projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
[perl #68108] : also fix if/else constant folding
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
split.t
diff --git
a/t/op/split.t
b/t/op/split.t
old mode 100755
(executable)
new mode 100644
(file)
index
025327f
..
b3a9741
--- a/
t/op/split.t
+++ b/
t/op/split.t
@@
-6,7
+6,7
@@
BEGIN {
require './test.pl';
}
-plan tests => 135;
+plan tests => 136;
$FS = ':';
@@
-358,3
+358,9
@@
ok(@ary == 3 &&
is($s[2]," XYZ");
is(join(':',@s), join(':',@r));
}
+
+{
+ use constant BANG => {};
+ () = split m/,/, "", BANG;
+ ok(1);
+}