@INC = '../lib';
}
+use Text::Wrap qw(&fill);
+
@tests = (split(/\nEND\n/s, <<DONE));
TEST1
Cyberdog Information
print "1..", @tests/2, "\n";
+use Text::Wrap;
+
$rerun = $ENV{'PERL_DL_NONLAZY'} ? 0 : 1;
$tn = 1;
print "ok $tn\n";
} elsif ($rerun) {
my $oi = $in;
- require File::Slurp;
- File::Slurp::write_file("#o", $back);
- File::Slurp::write_file("#e", $out);
+ open(F,">#o") and do { print F $back; close(F) };
+ open(F,">#e") and do { print F $out; close(F) };
foreach ($in, $back, $out) {
s/\t/^I\t/gs;
s/\n/\$\n/gs;