6 ($prefs_file, $new_list, $new_search) = @ARGV;
8 $new_list =~ m/^(\-|\+[imtlfn]+)$/ or die; $new_list= $1;
9 $new_search =~ m/^([nuy])$/ or die; $new_search= $1;
11 $user= $ENV{'USERV_USER'}; length $user or die;
13 open N, ">$prefs_file.new" or die $!;
15 if (open P, $prefs_file) {
17 die unless m/^(\w+) /;
22 } elsif ($! != &ENOENT) {
26 print N "$user $new_list $new_search\n" or die $!;
29 rename "$prefs_file.new", $prefs_file or die $!;