Lines Matching refs:val
242 my $val = Prompt($prompt,$def ? "yes" : "no");
244 $val =~ /^y/i ? 1 : 0;
725 my $val = $cfg{$key};
726 if(!defined($val)) {
727 $val = "undef";
729 elsif(ref($val)) {
730 $val = '[' . join(",",
738 } @$val ) . ']';
741 $val =~ s/'/\'/sog;
742 $val = "'" . $val . "'" if $val =~ /\D/;
744 print $fh "\t'",$key,"' => ",$val,",\n";