[Encode] Minor bug in piconv induced by Getopt::Long

Message-ID: <20030524195048.16052.qmail@dan-gm.gm.dan.co.jp>

p4raw-id: //depot/perl@19618

diff --git a/ext/Encode/bin/piconv b/ext/Encode/bin/piconv
index b25b0b5..ee400f5 100644 (file)
--- a/ext/Encode/bin/piconv
+++ b/ext/Encode/bin/piconv
@@ -40,7 +40,7 @@ my $to   = $Opt{to}   || $locale or help("to_encoding unspecified");
 $Opt{string} and Encode::from_to($Opt{string}, $from, $to) and print $Opt{string} and exit;
 my $scheme = exists $Scheme{$Opt{Scheme}} ? $Opt{Scheme} :  'from_to';
 $Opt{check} ||= $Opt{c};
-$Opt{p} and $Opt{check} = Encode::FB_PERLQQ;
+$Opt{perlqq} and $Opt{check} = Encode::FB_PERLQQ;
 
 if ($Opt{debug}){
     my $cfrom = Encode->getEncoding($from)->name;