Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libtest-harness-perl / libtest-harness-perl-3.12 / t / lib / Dev / Null.pm

diff --git a/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/Dev/Null.pm b/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/Dev/Null.pm
new file mode 100644 (file)
index 0000000..09ca5d6
--- /dev/null
+++ b/dev/i386/libtest-harness-perl/libtest-harness-perl-3.12/t/lib/Dev/Null.pm
@@ -0,0 +1,18 @@
+# For shutting up Test::Harness.
+# Has to work on 5.004 which doesn't have Tie::StdHandle.
+package Dev::Null;
+
+sub WRITE  { }
+sub PRINT  { }
+sub PRINTF { }
+
+sub TIEHANDLE {
+    my $class = shift;
+    my $fh = do { local *HANDLE; \*HANDLE };
+    return bless $fh, $class;
+}
+sub READ     { }
+sub READLINE { }
+sub GETC     { }
+
+1;