Lines Matching refs:perl
1 #!./perl
12 like($@, 'Modification of a read-only value attempted', '[perl #19566]');
29 is ($result, "end", '[perl #21614] for length ' . length('k' x $k));
36 prog => "\$x = q(perl) x $k; \$a{\$x} = q(v); foreach (keys %a) {\$_ .= <>; print}",
39 is ($result, ('perl' x $k) . " rules", 'rcatline to shared sv for length ' . length('perl' x $k));
57 $k = 'perl' x $k;
58 my $perl = $k;
60 is ($k, "$perl rules\n", 'rcatline to COW sv for length ' . length $perl);