t/x2p/s2p.t fix for VMS in UNIX mode

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

diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
index 072e8fd..24a1559 100644 (file)
--- a/t/lib/TieOut.pm
+++ b/t/lib/TieOut.pm
@@ -1,23 +1,29 @@
 package TieOut;
+# $Id: /mirror/googlecode/test-more-trunk/t/lib/TieOut.pm 67132 2008-10-01T01:11:04.501643Z schwern  $
 
 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;