readline.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't';
}
{
close A; $a = 4;
}
# 82 is chosen to exceed the length for sv_grow in do_readline (80)
foreach my $k (1, 82) {
my $result
);
}
foreach my $k (1, 21) {
my $result
);
}
# These COW tests are not going to show up anything on 5.8.x (No Copy On Write)
# but they do no harm, and it makes life easier to keep this file fully in
# sync with 5.9.x
foreach my $l (1, 82) {
my $k = $l;
$k = 'k' x $k;
my $copy = $k;
$k = <DATA>;
}
foreach my $l (1, 21) {
my $k = $l;
$k = 'perl' x $k;
my $perl = $k;
$k .= <DATA>;
}
use strict;
my $err = $! + 0;
close F;
SKIP: {
$!=0;
close F;
$!=0;
{ local $/;
close F;
}
}