NaNQ? tweak

[p5sagit/p5-mst-13.2.git] / t / lib / textfill.t

diff --git a/t/lib/textfill.t b/t/lib/textfill.t
index 857ae2f..9ae6de9 100755 (executable)
--- a/t/lib/textfill.t
+++ b/t/lib/textfill.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 @tests = (split(/\nEND\n/s, <<DONE));
@@ -54,9 +54,7 @@ DONE
 
 $| = 1;
 
-print "1..";
-print @tests/2;
-print "\n";
+print "1..", @tests/2, "\n";
 
 use Text::Wrap;
 
@@ -75,9 +73,8 @@ while (@tests) {
                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;