Change 17790: Change 17790

[hv]

Change 17790 by [EMAIL PROTECTED] on 2002/08/27 11:22:36

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

Affected files ...

.... //depot/perl/t/lib/TieOut.pm#4 edit

Differences ...

==== //depot/perl/t/lib/TieOut.pm#4 (text) ====
Index: perl/t/lib/TieOut.pm
--- perl/t/lib/TieOut.pm#3~17783~       Mon Aug 26 08:07:21 2002
+++ perl/t/lib/TieOut.pm        Tue Aug 27 04:22:36 2002
@@ -9,11 +9,15 @@
        $$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;
End of Patch.