1 files changed, 26 insertions, 0 deletions
diff --git a/lib/Test/Utils.pm b/lib/Test/Utils.pm
new file mode 100644
index 0000000000..17908ebb1a
--- /dev/null
+++ b/lib/Test/Utils.pm
@@ -0,0 +1,26 @@
+package Test::Utils;
+
+use 5.004;
+
+use strict;
+require Exporter;
+use vars qw($VERSION @EXPORT @EXPORT_TAGS @ISA);
+
+$VERSION = '0.02';
+
+@ISA = qw(Exporter);
+@EXPORT = qw( my_print print );
+                
+
+
+# Special print function to guard against $\ and -l munging.
+sub my_print (*@) {
+    my($fh, @args) = @_;
+
+    local $\;
+    print $fh @args;
+}
+
+sub print { die "DON'T USE PRINT!  Use _print instead" }
+
+1;