Do not use File::Slurp.

p4raw-id: //depot/cfgperl@2796

diff --git a/t/lib/textfill.t b/t/lib/textfill.t
index 16b3518..19add69 100755 (executable)
--- a/t/lib/textfill.t
+++ b/t/lib/textfill.t
@@ -73,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;