projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Upgrade to PathTools-3.17
[p5sagit/p5-mst-13.2.git]
/
lib
/
overload.t
diff --git
a/lib/overload.t
b/lib/overload.t
index
a30a53b
..
9614e1e
100644
(file)
--- a/
lib/overload.t
+++ b/
lib/overload.t
@@
-1201,6
+1201,13
@@
foreach my $op (qw(<=> == != < <= > >=)) {
}
+{
+ my $twenty_three = 23;
+ # Check that constant overloading propagates into evals
+ BEGIN { overload::constant integer => sub { 23 } }
+ test(eval "17", $twenty_three);
+}
+
# Last test is:
-sub last {497}
+sub last {498}