X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTieOut.pm;h=0a0f5f9cfe1e9d41748fc08a4f5fa240ee7bed39;hb=04d1c4156e381ac787d2439f25f8152211f495f8;hp=072e8fdef6a44dcadb3744d7a35a44356724c426;hpb=1452766c55d627a2c0d5246929060db2d001c29b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
index 072e8fd..0a0f5f9 100644
--- a/t/lib/TieOut.pm
+++ b/t/lib/TieOut.pm
@@ -1,23 +1,28 @@
 package TieOut;
 
 sub TIEHANDLE {
-	bless( \(my $scalar), $_[0]);
+    my $scalar = '';
+    bless( \$scalar, $_[0]);
 }
 
 sub PRINT {
-	my $self = shift;
-	$$self .= join('', @_);
+    my $self = shift;
+    $$self .= join('', @_);
 }
 
 sub PRINTF {
-	my $self = shift;
+    my $self = shift;
     my $fmt  = shift;
-	$$self .= sprintf $fmt, @_;
+    $$self .= sprintf $fmt, @_;
 }
 
+sub FILENO {}
+
 sub read {
-	my $self = shift;
-	return substr($$self, 0, length($$self), '');
+    my $self = shift;
+    my $data = $$self;
+    $$self = '';
+    return $data;
 }
 
 1;