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 (executable)
--- 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>)