From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 2 Feb 1999 17:13:23 +0000 (+0000)
Subject: Do not use File::Slurp.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9728b48bb2f227925881e09aa9f9fe69725d8235;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;