From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 23 Jan 2001 13:51:28 +0000 (+0000)
Subject: print() instead of warn() so that stderr doesn't get
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d049a12c1f58856159bba06e6695bbdddde3286f;p=p5sagit%2Fp5-mst-13.2.git

print() instead of warn() so that stderr doesn't get
unnecessarily polluted.

p4raw-id: //depot/perl@8522
---

diff --git a/ext/Encode/compile b/ext/Encode/compile
index b1d68a2..f6957d2 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>)