diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-23 13:51:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-23 13:51:28 +0000 |
| commit | d049a12c1f58856159bba06e6695bbdddde3286f (patch) | |
| tree | 0f1cb478f40d2ec8782431c00296b2de340352fb /ext/Encode | |
| parent | 8d496600578911978fcd0411cc2f14bb866aa93e (diff) | |
| download | perl-d049a12c1f58856159bba06e6695bbdddde3286f.tar.gz | |
print() instead of warn() so that stderr doesn't get
unnecessarily polluted.
p4raw-id: //depot/perl@8522
Diffstat (limited to 'ext/Encode')
| -rwxr-xr-x | ext/Encode/compile | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/compile b/ext/Encode/compile index b1d68a298b..f6957d260b 100755 --- a/ext/Encode/compile +++ b/ext/Encode/compile @@ -251,7 +251,7 @@ sub compile_ucm push(@byte,$1) while $attr{'subchar'} =~ /\G\\x([0-9a-f]+)/icg; $erep = join('',map(chr(hex($_)),@byte)); } - warn "Scanning $name ($cs)\n"; + print "Scanning $name ($cs)\n"; my $nfb = 0; my $hfb = 0; while (<$fh>) |