projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
& what's to be done for 5.8.0?
[p5sagit/p5-mst-13.2.git]
/
lib
/
Test
/
Utils.pm
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
20
return 1 if $^C;
21
22
local $\;
23
print $fh @args;
24
}
25
26
sub print { die "DON'T USE PRINT! Use _print instead" }
27
28
1;