From: Robin Houston <robin@cpan.org>
Date: Mon, 26 Dec 2005 17:56:48 +0000 (+0000)
Subject: Test that constant overloading is propagated into eval
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=705c898ca699069279e27abb37342b93effd7a43;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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}