Lines Matching full:my

7 my $input_file = "MAINTAINERS";
8 my $output_file = "MAINTAINERS.new";
9 my $output_section = "SECTION.new";
10 my $help = 0;
11 my $order = 0;
12 my $P = $0;
62     my ($a, $b) = @_;
75     my ($a, $b) = @_;
76     my $preferred_order = 'MRLSWQBCPTFXNK';
78     my $a1 = uc(substr($a, 0, 1));
79     my $b1 = uc(substr($b, 0, 1));
81     my $a_index = index($preferred_order, $a1);
82     my $b_index = index($preferred_order, $b1);
102     my $s = shift;
109     my ($hashref, $filename) = (@_);
113     open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n";
114     my $separator;
115     foreach my $key (sort by_category keys %$hashref) {
126 		foreach my $pattern (sort by_pattern split('\n', %$hashref{$key})) {
130 		foreach my $pattern (split('\n', %$hashref{$key})) {
140     my ($hashref, $filename) = (@_);
142     my $lastline = "";
143     my $case = " ";
146     open(my $file, '<', "$filename") or die "$P: $filename: open failed - $!\n";
149         my $line = $_;
177 my %hash;
178 my %new_hash;
182 foreach my $type (@ARGV) {
183     foreach my $key (keys %hash) {