[Dwn-trans-commit] CVS french

[CVS User jeb-guest]

Update of /cvsroot/dwn-trans/french
In directory alioth:/tmp/cvs-serv20208

Modified Files:
	verification.pl 
Log Message:
Ajout d'une erreur si le fichier n'existe pas
Recherche "<a " et non pas "<a" (qui pourrait correspondre à d'autre tag)


--- /cvsroot/dwn-trans/french/verification.pl	2008/11/09 02:27:30	1.2
+++ /cvsroot/dwn-trans/french/verification.pl	2008/11/09 12:22:55	1.3
@@ -7,7 +7,7 @@
 getopts('f:');
 die "Usage: $0 -f <file>" if (!defined($opt_f));
 
-open(FILE, $opt_f);
+open(FILE, $opt_f) or die "Can't open file $opt_f : $!";
 print "The script will check for:\n";
 print "\tDouble space, notice with DS and highlighted with '__'\n";
 print "\tCase erors, notice with CE and highlighted with '__'\n";
@@ -15,8 +15,8 @@
 print "\n";
 while(<FILE>) {
 	# Wrong space in link
-	if (/<a[^>]*?>(\s.*?|.*?\s)<\/a>/) {
-		s/(<a[^>]*?>)(\s.*?|.*?\s)(<\/a>)/$1__$2__$3/g;
+	if (/<a [^>]*?>(\s.*?|.*?\s)<\/a>/) {
+		s/(<a [^>]*?>)(\s.*?|.*?\s)(<\/a>)/$1__$2__$3/g;
 		print "SL : $_";
 	}
 	# Douple space check