Lines Matching refs:r
78 for my $r (1 .. $#refs) {
79 if(!$refused[$r] & 1) {
80 return $r;
173 my $r = getref();
174 $refs[$r] = $ref;
175 $moreinfo{$short}=$r;
176 $refused[$r] |= 1;
224 my $r = $refs[$n];
225 if($r && ($refused[$n] & 1)) {
226 push @o, sprintf " [%d] = %s\n", $n, $r;
239 for my $r (1 .. $#refs) {
240 if($refused[$r] != 3) {
241 printf "%s is %d!\n", $r, $refused[$r];