Synched with MakeMaker's more advanced TieOut.

leto · Oct 15, 2002 · 342cd99 · 342cd99
1 parent ba16f19
commit 342cd99
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
@@ -9,11 +9,17 @@ sub PRINT {
 	$$self .= join('', @_);
 }
 
+sub PRINTF {
+	my $self = shift;
+    my $fmt  = shift;
+	$$self .= sprintf $fmt, @_;
+}
+
 sub read {
 	my $self = shift;
-    my $out = $$self;
+    my $data = $$self;
     $$self = '';
-	return $out;
+	return $data;
 }
 
 1;