diff options
| author | Karl Williamson <khw@cpan.org> | 2014-11-13 19:59:43 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-11-14 13:38:18 -0700 |
| commit | bd083ee5f039535aee6b8ac86be6250a3e37e63a (patch) | |
| tree | e8c97ae53660d48d150ce4e42a7dd7f608ae6f5a /lib/locale.t | |
| parent | 8c6180a91de91a1194f427fc639694f43a903a78 (diff) | |
| download | perl-bd083ee5f039535aee6b8ac86be6250a3e37e63a.tar.gz | |
lib/locale.t: Display debug information under harness
This just changes any debugging (which is by default off) goes to
STDERR.
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/locale.t b/lib/locale.t index b6193c6bd3..2845f13593 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -59,7 +59,7 @@ sub debug { return unless $debug; my($mess) = join "", '# ', @_; chop $mess; - print $dumper->stringify($mess,1), "\n"; + print STDERR $dumper->stringify($mess,1), "\n"; } sub debug_more { @@ -68,7 +68,7 @@ sub debug_more { } sub debugf { - printf @_ if $debug; + printf STDERR @_ if $debug; } $a = 'abc %9'; |