[p5sagit/p5-mst-13.2.git] / lib / Test / Utils.pm

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) = @_;

    return 1 if $^C;

    local $\;
    print $fh @args;
}

sub print { die "DON'T USE PRINT!  Use _print instead" }

1;
Commit	Line	Data
d020a79a	1	package Test::Utils;
	2
	3	use 5.004;
	4
	5	use strict;
	6	require Exporter;
	7	use vars qw($VERSION @EXPORT @EXPORT_TAGS @ISA);
	8
	9	$VERSION = '0.02';
	10
	11	@ISA = qw(Exporter);
	12	@EXPORT = qw( my_print print );
	13
	14
	15
	16	# Special print function to guard against $\ and -l munging.
	17	sub my_print (*@) {
	18	my($fh, @args) = @_;
	19
b62cd5ea	20	return 1 if $^C;
b62cd5ea	21
d020a79a	22	local $\;
	23	print $fh @args;
	24	}
	25
	26	sub print { die "DON'T USE PRINT! Use _print instead" }
	27
	28	1;