diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2003-05-24 19:50:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-24 19:54:39 +0000 |
| commit | a3be20bfd91e483c4a78ac84c9c6d288ef728021 (patch) | |
| tree | 8ccff03d53cb3c1d53cd4f2d57117d3b7b65220d /ext/Encode | |
| parent | 241416b843acd61d654907e145e85fc482a50be6 (diff) | |
| download | perl-a3be20bfd91e483c4a78ac84c9c6d288ef728021.tar.gz | |
[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
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/bin/piconv | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/bin/piconv b/ext/Encode/bin/piconv index b25b0b56df..ee400f541d 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; |