From d049a12c1f58856159bba06e6695bbdddde3286f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 23 Jan 2001 13:51:28 +0000
Subject: print() instead of warn() so that stderr doesn't get unnecessarily
 polluted.

p4raw-id: //depot/perl@8522
---
 ext/Encode/compile | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext/Encode')

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>)
-- 
cgit v1.2.1