Lines Matching refs:words
192 local(@words,$snippet,$field,$havefield,$cont,@triparray,$maytrail);
258 push(@words, $field) if $havefield;
267 \@words;
297 local($lastkey,$keyval,$words,$i,$flag,%byservice);
301 while (@{$words = uucpline(SVCFILE, $file)}) {
306 while ($i < @$words) {
307 if ($$words[$i] eq $keyval) {
308 splice @$words, $i, 1;
317 foreach $i (0 .. @{$words}) {
318 if (@{$words}[$i] =~ /^$lastkey(.*)/i) {
319 splice @{$words}, $i, 1;
320 $byservice{$1} = $words;
337 local($keyval,$words,%keyeddata);
344 while (@{$words = uucpline(POSFILE, $file)}) {
345 $keyval = shift @{$words};
347 $keyeddata{$keyval} = $words;
361 local($keyval,$words,%keyeddata);
368 while (@{$words = uucpline(POSFILE, $file)}) {
369 $keyval = shift @{$words};
370 push @{$keyeddata{$keyval}}, $words;
439 local($words,$word,$prevword,$i,$errors,%defaults,%ifconfig,%paths);
448 while (@{$words = uucpline(ASPPPD, $aspppcf)}) {
449 if ($$words[0] =~ /^ifconfig$/i) {
453 shift @$words; # discard 'ifconfig' keyword
454 $word = shift @$words;
457 $ifconfig{$word} = \@$words;
460 unshift @{$words}, $prevword if defined($prevword);
462 while ($word = lc(shift @{$words})) {
487 $prevword = $_, last unless defined($word = shift @{$words});
492 if ($word = shift @{$words}) {
496 unshift @{$words}, $word;
958 local(@words) = @{$$ifconfig{$intf}};
959 while ($word = shift @words) {
960 shift @words if $ifconfigtakes{$word};
978 while (@{$words = uucpline(OPTIONS, $options)}) {
979 while ($_ = pop @$words) {
1271 while (@{$words = uucpline(OPTIONS, $options, \@triplet)}) {
1273 if (grep(/auth/, @$words)) {
1274 local(@newwords) = map { $_ = "noauth" if /auth/; $_ } @$words;
1279 while (pop @$words) {
1352 while (@{$words = uucpline(SECRETS, $pppdir . $fname, \@triplet)}) {
1354 $newsecret = $ {$$addsecrets{$$words[0]}}{$$words[1]};
1356 $cstr .= requote($$words[0]) . " " . requote($$words[1]) .
1358 delete $ {$$addsecrets{$$words[0]}}{$$words[1]};