[sword-svn] r257 - trunk/modules/perlconverters

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-12-19 16:41:06 -0700 (Sat, 19 Dec 2009)
New Revision: 257

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
made type argument case insensitive

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2009-12-19 23:39:08 UTC (rev 256)
+++ trunk/modules/perlconverters/usfm2osis.pl	2009-12-19 23:41:06 UTC (rev 257)
@@ -87,7 +87,6 @@
 
 $divOpen=false;
 
-
 # Generates a list of available encodings.
 use Encode;
 @encodingList = Encode->encodings(":all");
@@ -132,11 +131,13 @@
 
 if (@ARGV[$nextarg] eq "-t") {
     $moduleType = "@ARGV[$nextarg+1]";
+    $moduleType = lc($moduleType);
     $nextarg += 2;
 }
 else {
     $moduleType = "bible";
 }
+
 $encFound = 0;
 foreach $enc (@encodingList) {
     if ($enc eq $inputEncoding) {