Lines Matching refs:my

16 my @protocols;
17 my @is_disabled = (0);
32     my ($names) = @_;
33     my @ret;
34     foreach my $name (split(/:/, $names)) {
35         my ($alg, $rest) = split(/(?=[+])/, $name, 2);
44         my $protocol = $protocols[$_];
45         my $protocol_name = $protocol || "flex";
46         my $caalert;
47         my $method;
48         my $sctpenabled = 0;
59             my $clihash;
60             my $clisigtype;
61             my $clisigalgs;
68             for (my $sctp = 0; $sctp <= $sctpenabled; $sctp++) {