[Dwn-trans-commit] jeb-guest - r7 - /french/verification.pl

[dwn-trans-commit at lists.alioth.debian.org]

Author: jeb-guest
Date: Sun Nov 23 03:16:10 2008
New Revision: 7

URL: http://svn.debian.org/wsvn/dwn-trans/?sc=3D1&rev=3D7
Log:
Add even more breaking space check
Corrected UTF8 output
SVN Commit message should also now be UTF compliant

Modified:
    french/verification.pl

Modified: french/verification.pl
URL: http://svn.debian.org/wsvn/dwn-trans/french/verification.pl?rev=3D7&op=
=3Ddiff
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- french/verification.pl (original)
+++ french/verification.pl Sun Nov 23 03:16:10 2008
@@ -4,6 +4,7 @@
 =

 use Getopt::Std;
 use utf8;
+binmode(STDOUT, ":utf8");	=

 =

 getopts('f:');
 die "Usage: $0 -f <file>" if (!defined($opt_f));
@@ -17,16 +18,24 @@
 print "\n";
 while(<FILE>) {
 	# breakable space where non-breakeable should be used
-	if (/\s:/) {
+	if (/\s:/) {				# Before :
 		s/(\s):/__$1__:/g;
 		print "BS : $_";
 	}
-	if (/\s=C3=82=C2=BB/) {
+	if (/\s;/) {				# Before ;
+		s/(\s);/__$1__;/g;
+		print "BS : $_";
+	}
+	if (/\s\d+\s/) {			# After number
+		s/\s\d+(\s)/__$1__;/g;
+		print "BS : $_";
+	}
+	if (/\s=C3=82=C2=BB/) {				# Before =C3=82=C2=BB
 		s/(\s)=C3=82=C2=BB/__$1__=C3=82=C2=BB/g;
 		print "BS : $_";
 	}
-	if (/\=C3=82=C2=AB\s/) {
-		s/\=C3=82=C2=AB(\s)/=C3=82=C2=AB__$1__/g;
+	if (/=C3=82=C2=AB\s/) {
+		s/=C3=82=C2=AB(\s)/=C3=82=C2=AB__$1__/g;		# After =C3=82=C2=AB
 		print "BS : $_";
 	}
 	# Wrong space in link