From: Dan Kogai <dankogai@dan.co.jp>
Date: Sat, 24 May 2003 19:50:48 +0000 (+0000)
Subject: [Encode] Minor bug in piconv induced by Getopt::Long
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3be20bfd91e483c4a78ac84c9c6d288ef728021;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;