[Dwn-trans-commit] CVS french
CVS User jeb-guest
dwn-trans-commit at lists.alioth.debian.org
Sun Nov 9 12:22:55 UTC 2008
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
More information about the Dwn-trans-commit
mailing list