removing UNUSED; from input string (useless except if string list is not updated & an UNUSED string becomes used...)

This commit is contained in:
tipaul 2004-01-26 10:41:50 +00:00
parent b49959b1cf
commit 777cc164b4
1 changed files with 3 additions and 1 deletions

View File

@ -184,7 +184,7 @@ sub install_strhash
# opens handle for output
if( !open($fh_out, "> $out_file_tmp") )
{
warn "Can't write $out_file : $!\n";
warn "Can''t write $out_file : $!\n";
close($fh_in);
next;
}
@ -205,6 +205,7 @@ sub install_strhash
{
# changing text
my $subst = %{$strhash}->{$text};
$subst =~ s/UNUSED;//;
# escaping \|()[{}^$*+?.
$text =~ s/\\/\\\\/g;
$text =~ s/\//\\\//g;
@ -228,6 +229,7 @@ sub install_strhash
} else {
# changing text
my $subst = %{$strhash}->{$text};
$subst =~ s/UNUSED;//;
# escaping \|()[{}^$*+?.
$text =~ s/\\/\\\\/g;
$text =~ s/\//\\\//g;