From: Hugo van der Sanden <hv@crypt.org>
Date: Tue, 27 Aug 2002 11:22:36 +0000 (+0000)
Subject: #17783 introduced an outdated test module, causing failure in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1452766c55d627a2c0d5246929060db2d001c29b;p=p5sagit%2Fp5-mst-13.2.git

#17783 introduced an outdated test module, causing failure in
lib/ExtUtils/t/problems.t. This grabs a more recent copy from
ExtUtils::MakeMaker.

p4raw-id: //depot/perl@17790
---

diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
index aa49465..072e8fd 100644
--- a/t/lib/TieOut.pm
+++ b/t/lib/TieOut.pm
@@ -9,11 +9,15 @@ sub PRINT {
 	$$self .= join('', @_);
 }
 
+sub PRINTF {
+	my $self = shift;
+    my $fmt  = shift;
+	$$self .= sprintf $fmt, @_;
+}
+
 sub read {
 	my $self = shift;
-    my $out = $$self;
-    $$self = '';
-	return $out;
+	return substr($$self, 0, length($$self), '');
 }
 
 1;