develooper Front page | perl.perl5.porters | Postings from December 2005

[PATCH] Test that constant overloading is propagated into eval

Thread Next
From:
Robin Houston
Date:
December 26, 2005 09:57
Subject:
[PATCH] Test that constant overloading is propagated into eval
--- 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


Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About