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

jhi,

I found a very minor bug in piconv script induced by Getopt::Long.
The patch below fixes that.

Dan the Encode Maintainer

===================================================================
RCS file: bin/piconv,v
retrieving revision 1.26
diff -u -r1.26 bin/piconv
--- bin/piconv  2003/05/10 18:13:59     1.26
+++ bin/piconv  2003/05/24 19:38:28
@@ -1,5 +1,5 @@
 #!./perl
-# $Id: piconv,v 1.26 2003/05/10 18:13:59 dankogai Exp dankogai $
+# $Id: piconv,v 1.26 2003/05/10 18:13:59 dankogai Exp $
 #
 use 5.8.0;
 use strict;
@@ -40,7 +40,7 @@
 $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;

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