develooper Front page | perl.perl5.porters | Postings from May 2003

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

From:
Dan Kogai
Date:
May 24, 2003 16:07
Subject:
[Encode] Minor bug in piconv induced by Getopt::Long
Message ID:
20030524195048.16052.qmail@dan-gm.gm.dan.co.jp
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;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About