Change 20658 by [EMAIL PROTECTED] on 2003/08/12 13:57:58
Integrate:
[ 20657]
Multiline one-liners are a bit too much to ask.
Affected files ...
... //depot/maint-5.8/perl/t/op/closure.t#11 integrate
Differences ...
==== //depot/maint-5.8/perl/t/op/closure.t#11 (xtext) ====
Index: perl/t/op/closure.t
--- perl/t/op/closure.t#10~20637~ Tue Aug 12 02:36:26 2003
+++ perl/t/op/closure.t Tue Aug 12 06:57:58 2003
@@ -614,25 +614,31 @@
$test= 185;
-# bugid #23265 - this used to coredump during destruction of PL_maincv
-# and its children
+require './test.pl'; # for runperl()
+
+{
+ # 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.
