Lines Matching refs:val
897 # + watch val joined out of eval()
1404 my ($opt, $val);
1405 while (($opt, $val) = each %opt) {
1406 $val =~ s/[\\\']/\\$1/g;
1407 parse_options("$opt'$val'");
1789 my ($val) =
1791 $val = ((defined $val) ? "'$val'" : 'undef');
1794 if ($val ne $old_watch[$n]) {
1800 new value:\t$val
1802 $old_watch[$n] = $val;
1803 } ## end if ($val ne $old_watch...
4928 my $opt = shift || ''; # opt[=val]
5016 my ($val) = join(' ', &eval);
5017 $val = (defined $val) ? "'$val'" : 'undef';
5020 push @old_watch, $val;
5071 my $val = $to_watch[$i_cnt];
5074 if ($val eq $expr) { # =~ m/^\Q$i$/) {
6120 my ($opt, $val) = @_;
6121 $val = option_val($opt, 'N/A');
6122 $val =~ s/([\\\'])/\\$1/g;
6123 printf $OUT "%20s = '%s'\n", $opt, $val;
6138 my $val;
6144 $val = ${ $optionVars{$opt} };
6152 $val = &{ $optionAction{$opt} }();
6160 $val = $default;
6165 $val = $option{$opt};
6170 $val = $default unless defined $val;
6171 $val;
6223 my $val;
6238 $val = "1"; # this is an evil default; make 'em set it!
6246 ($val = $2) =~ s/\\([$quote\\])/$1/g;
6252 $val = $1;
6254 unless length $val;
6264 ($val = $1) =~ s/\\([\\$end])/$1/g;
6276 $option{$option} = $val if defined $val;
6286 defined $val;
6290 ${ $optionVars{$option} } = $val
6292 defined $val;
6295 &{ $optionAction{$option} }($val)
6298 defined $val;
6321 my $val;
6329 $val = $list[$i];
6330 $val =~ s/\\/\\\\/g;
6331 $val =~ s/([\0-\37\177\200-\377])/"\\0x" . unpack('H2',$1)/eg;
6332 $ENV{"${stem}_$i"} = $val;
6347 my $val;
6349 $val = delete $ENV{"${stem}_$i"};
6350 $val =~ s/\\((\\)|0x(..))/ $2 ? $2 : pack('H2', $3) /ge;
6351 push @list, $val;
6866 B<o> [I<opt>B<=>I<val>] [I<opt>=B<\">I<val>B<\">] ...
6924 B<=> [I<a> I<val>] Define/list an alias B<A> I<ln|*> Delete a/all actions
7042 B<O> [I<opt>B<=>I<val>] [I<opt>=B<\">I<val>B<\">] ...
7099 B<=> [I<a> I<val>] Define/list an alias B<W> I<expr> Add a watch expression
8065 my $val = option_val($out[0], undef);
8069 if (not defined $val or $val =~ /[\n\r]/) {
8074 elsif ($val =~ /\s/) {
8084 $out = "$l$val$l ", last if (index $val, $l) == -1;
8086 } ## end elsif ($val =~ /\s/)
8090 $out = "=$val ";
8435 my ($val) = &eval;
8436 $val = (defined $val) ? "'$val'" : 'undef';
8439 push @old_watch, $val;