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

[refdoc at crosswire.org]

Author: refdoc
Date: 2012-01-09 17:58:48 -0700 (Mon, 09 Jan 2012)
New Revision: 346

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
corrected translation of apostrophe


Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2012-01-08 19:10:37 UTC (rev 345)
+++ trunk/modules/perlconverters/usfm2osis.pl	2012-01-10 00:58:48 UTC (rev 346)
@@ -225,7 +225,7 @@
 	$line =~ s/</\$/g;
 	$line =~ s/>/\%/g;
 
-	$line =~ s/(\w)\'(\w)/"$1" . chr(0x2019) . "$2"/eg;
+	$line =~ s/(\w)\'(\w)/"$1" . chr(0x0027) . "$2"/eg;
 	$line =~ s/\\fr 1\/2 \\fr\*/chr(0xBD)/eg;
 
 	@filedata[$i] = $line;