Test that constant overloading is propagated into eval

Message-ID: <20051226175648.GA28402@rpc142.cs.man.ac.uk>

p4raw-id: //depot/perl@26521

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}