Added a failing test for a bareword parsing regression created in 984f9f66

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

diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm
index e41b602..0a0f5f9 100644 (file)
--- a/t/lib/TieOut.pm
+++ b/t/lib/TieOut.pm
@@ -16,6 +16,8 @@ sub PRINTF {
     $$self .= sprintf $fmt, @_;
 }
 
+sub FILENO {}
+
 sub read {
     my $self = shift;
     my $data = $$self;