#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 (file)
--- 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;