Front page | perl.perl5.porters |
Postings from September 2000
On Sat, Sep 16, 2000 at 08:38:08AM +0000, Nick Ing-Simmons wrote:
> We have a mechanism in Test.pm for tests which should work but which
> don't yet. A patch that added one of those would be safe to apply even if
> the patch that fixed the problem was not to hand.
OK, I'll bite -- I have a test which should work but doesn't yet.
Unfortunately, it also dumps core. What's the mechanism for that?
-dlc
--- pragma/overload.t 2000/09/16 10:11:29 1.1
+++ pragma/overload.t 2000/09/16 10:22:44
@@ -969,5 +969,13 @@
test($a =~ /^`1' is not a code reference at/); # 215
}
+# make sure that we don't inifinitely recurse
+{ my $c = 0;
+ package Recurse;
+ use overload '""' => sub { shift };
+ my $x = bless([]);
+ main::test "$x"; # 216
+};
+
# Last test is:
-sub last {215}
+sub last {217}
Thread Previous