Lines Matching refs:a
131 foreach (sort { $a <=> $b } keys %nidn)
169 foreach (sort { $a <=> $b } keys %ordern)
187 local(@a,$oid_pref);
189 @a = split(/\s+/,$myoid);
192 if (!($a[0] =~ /^[0-9]+$/))
194 $a[0] =~ s/-/_/g;
195 if (!defined($obj{$a[0]}))
196 { die "$ARGV[0]:$o:Undefined identifier ",$a[0],"\n"; }
197 $pref_oid = "OBJ_" . $a[0];
199 shift @a;
201 $oids = join('L,',@a) . "L";
