diff options
Diffstat (limited to 'lib/overload.t')
-rw-r--r-- | lib/overload.t | 9 |
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} |