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

[chrislit at crosswire.org]

Author: chrislit
Date: 2012-01-18 21:16:38 -0700 (Wed, 18 Jan 2012)
New Revision: 347

Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
removed processing of mid-word apostrophes; the (previous) fix didn't actually do anything but waste a few cycles (This line was originally for processing SFM, not USFM, in which apostrophes where expected to be transformed into pretty apostrophes in the course of typesetting.)

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