@@ -478,7 +478,7 @@ sub updateinfo
open(NEWFILE, ">$pisg_config") or die("Error updating configfile: $!");
&lock_file(*NEWFILE);
foreach $line (@lines) {
- if ($line =~ /^<user.*nick=\"$frm_nick\"/i) {
+ if ($line =~ /^<user.*nick=\"\Q$frm_nick\E\"/i) {
print NEWFILE "$line_to_add\n"
} else {
print NEWFILE $line;