qq.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print q(1..21
);
# This is() function is written to avoid ""
my $test = 1;
sub is {
printf 'ok %d
', $test++;
return 1;
}
# Comment out these regexps to map non-printables to ord if the perl under
# test is so broken that it's not helping
s/^''\.//;
s/\.''$//;
}
return 0;
}
chr 114);