@INC = '../lib';
}
+use Text::Wrap qw(&fill);
+
@tests = (split(/\nEND\n/s, <<DONE));
TEST1
Cyberdog Information
$| = 1;
-print "1..";
-print @tests/2;
-print "\n";
+print "1..", @tests/2, "\n";
use Text::Wrap;
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;