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}