Lines Matching defs:unctrl
23 $unctrl = 'quote' unless defined $unctrl;
39 sub unctrl {
74 } elsif ($unctrl eq 'unctrl') {
80 } elsif ($unctrl eq 'quote') {
318 if ($in eq 'unctrl' or $in eq 'quote') {
319 $unctrl = $in;
321 print "Unknown value for `unctrl'.\n";
324 $unctrl;
330 $unctrl = 'quote';
333 $unctrl = 'quote';
336 $unctrl = 'unctrl';
347 print( (' ' x $off) . "\$", &unctrl($key), " = " );
398 print( (' ' x $off) . &unctrl($key), " = " );