"piconv -C 512" badly broken

Message-Id: <1072870210.769.5.camel@localhost>
Date: Wed, 31 Dec 2003 19:30:10 +0800

p4raw-id: //depot/perl@22025

diff --git a/ext/Encode/bin/piconv b/ext/Encode/bin/piconv
index fbdb580..06dea1f 100644 (file)
--- a/ext/Encode/bin/piconv
+++ b/ext/Encode/bin/piconv
@@ -10,7 +10,7 @@ my %Scheme =  map {$_ => 1} qw(from_to decode_encode perlio);
 use File::Basename;
 my $name = basename($0);
 
-use Getopt::Long;
+use Getopt::Long qw(:config no_ignore_case);
 
 my %Opt;