[ANNOUNCE] Test::Simple 0.47

[p5sagit/p5-mst-13.2.git] / t / lib / TieOut.pm

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