Lines Matching refs:in
23 # Turning this off is somewhat of a security risk in that little or no
25 # eval("use $module_name") in _try_use. If you turn this off, you have
49 # return this lexical item in a form appropriate to this number
142 # If we make it here, there was an exception thrown in the
148 <\n in bracket code [compiled line $1],>s;
150 Carp::croak "Error in maketexting \"$phrase\":\n$err as used";
184 print "* Looking up \"$phrase\" in $h_r\n" if DEBUG;
186 print " Found \"$phrase\" in $h_r\n" if DEBUG;
199 print " Not found in $h_r, nor automakable\n" if DEBUG > 1;
204 print "! Lookup of \"$phrase\" in/under ", ref($handle) || $handle,
229 # If we make it here, there was an exception thrown in the
235 <\n in bracket code [compiled line $1],>s;
237 Carp::croak "Error in maketexting \"$phrase\":\n$err as used";
332 # it's off in its own routine because it's complicated
415 my $in = (@_ > 1) ? $_[1] : $ENV{'HTTP_ACCEPT_LANGUAGE'};
418 return() unless defined $in and length $in;
420 $in =~ s/\([^\)]*\)//g; # nix just about any comment
422 if( $in =~ m/^\s*([a-zA-Z][-a-zA-Z]+)\s*$/s ) {
425 } elsif( $in =~ m/^\s*[a-zA-Z][-a-zA-Z]+(?:\s*,\s*[a-zA-Z][-a-zA-Z]+)*\s*$/s ) {
427 return map lc($_), $in =~ m/([a-zA-Z][-a-zA-Z]+)/g;
432 $in =~ s/\s+//g; # Yes, we can just do without the WS!
433 my @in = $in =~ m/([^,]+)/g;
437 foreach my $tag (@in) {
457 return # Read off %pref, in descending key order...
482 eval "require $module"; # used to be "use $module", but no point in that.
535 * 6 to 8 medium carrots, peeled and then sliced in 1/4-inch rounds
544 Cook the carrots in a pot of boiling water until just tender -- roughly