Upgrade to Test::Harness 3.05

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

diff --git a/t/lib/Dev/Null.pm b/t/lib/Dev/Null.pm
index 2bd2274..09ca5d6 100644 (file)
--- a/t/lib/Dev/Null.pm
+++ b/t/lib/Dev/Null.pm
@@ -2,16 +2,17 @@
 # Has to work on 5.004 which doesn't have Tie::StdHandle.
 package Dev::Null;
 
-sub WRITE  {}
-sub PRINT  {}
-sub PRINTF {}
+sub WRITE  { }
+sub PRINT  { }
+sub PRINTF { }
+
 sub TIEHANDLE {
     my $class = shift;
-    my $fh    = do { local *HANDLE;  \*HANDLE };
+    my $fh = do { local *HANDLE; \*HANDLE };
     return bless $fh, $class;
 }
-sub READ {}
-sub READLINE {}
-sub GETC {}
+sub READ     { }
+sub READLINE { }
+sub GETC     { }
 
 1;