Change 20657 by [EMAIL PROTECTED] on 2003/08/12 13:55:56
Multiline one-liners are a bit too much to ask.
Affected files ...
... //depot/perl/t/op/closure.t#22 edit
Differences ...
==== //depot/perl/t/op/closure.t#22 (xtext) ====
Index: perl/t/op/closure.t
--- perl/t/op/closure.t#21~20631~ Tue Aug 12 01:09:43 2003
+++ perl/t/op/closure.t Tue Aug 12 06:55:56 2003
@@ -641,27 +641,31 @@
test { $a{7}->()->() + $a{11}->()->() == 18 };
}
-# bugid #23265 - this used to coredump during destruction of PL_maincv
-# and its children
+require './test.pl'; # for runperl()
-require './test.pl';
+{
+ # bugid #23265 - this used to coredump during destruction of PL_maincv
+ # and its children
+
+ my $progfile = "b23265.pl";
+ open(T, ">$progfile") or die "$0: $!\n";
+ print T << '__EOF__';
+ print
+ sub {$_[0]->(@_)} -> (
+ sub {
+ $_[1]
+ ? $_[0]->($_[0], $_[1] - 1) . sub {"x"}->()
+ : "y"
+ },
+ 2
+ )
+ , "\n"
+ ;
+__EOF__
+ close T;
+ my $got = runperl(progfile => $progfile);
+ test { chomp $got; $got eq "yxx" };
+ END { 1 while unlink $progfile }
+}
-my $got = runperl(
- prog => q[
- print
- sub {$_[0]->(@_)} -> (
- sub {
- $_[1]
- ? $_[0]->($_[0], $_[1] - 1) . sub {"x"}->()
- : "y"
- },
- 2
- )
- , "\n"
- ;
-
- ],
- stderr => 1
-);
-test { $got eq "yxx\n" };
End of Patch.
