Re: l10n-check 0.2.2

[Nicolas Bertolissio <nico.bertol@wanadoo.fr>]

Le lundi 21 janvier 2002, Nicolas Bertolissio écrit :
> La rustine est attachée, 
la voici :)


Nicolas
-- 

--- l10n-check_0.2.1.txt	Sun Jan 20 17:25:30 2002
+++ l10n-check_0.2.2.txt	Mon Jan 21 09:10:16 2002
@@ -103,7 +103,8 @@
 #		  'post_insert' => [ post_insert0, ...],
 #		  'post_fix'    => [ post_fix0, ... ] },
 #   ... }
-my $version = "0.2.1";
+
+my $version = "0.2.2";
 
 # Test if configuration as been made
 my @dir=split("/", $rules_dir);		# get all subdirs
@@ -336,7 +337,7 @@
 				my @choices;					# fix choices
 				push (@choices, ($pos eq "pre_")?"$_$c":"$c$_")	foreach @{ $Rules->{$item}{$pos.'insert'} };
 				push (@choices, "$_") 				foreach @{ $Rules->{$item}{$pos.'fix'} };
-				my $hint = $Rules->{$item}{$pos.'hint'};
+				my $hint = $Rules->{$item}{$pos.'hint'} || "<no help available>";
 
 				my $save = pos $line;				# save last match position
 				my $old_line = $line;
@@ -356,7 +357,7 @@
 
 		pos $line = 0;					# start from beginning
 
-		while ($line =~ /($word_letters+)/gi) {		# find next token
+		while ($line =~ /([$word_letters]+)/gi) {		# find next token
 			my $l = $` || '';				# left part
 			my $w = $&;					# word
 			my $r = $' || '';				# right part