--- perl-before/lib/overload.t 2004-11-04 09:50:57.000000000 +0000
+++ perl-after/lib/overload.t 2005-12-26 17:45:47.000000000 +0000
@@ -1201,6 +1201,13 @@
}
+{
+ 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}
Thread Next