summaryrefslogtreecommitdiff
path: root/lib/overload.t
diff options
context:
space:
mode:
Diffstat (limited to 'lib/overload.t')
-rw-r--r--lib/overload.t9
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/overload.t b/lib/overload.t
index a30a53b1eb..9614e1e3ff 100644
--- 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}