Lines Matching +full:use +full:- +full:case

1 #!/usr/bin/perl -w
2 # SPDX-License-Identifier: GPL-2.0
4 use strict;
5 use Getopt::Long qw(:config no_auto_abbrev);
21     die "$P: invalid argument - use --help if necessary\n";
33   --input => MAINTAINERS file to read (default: MAINTAINERS)
34   --output => sorted MAINTAINERS file to write (default: MAINTAINERS.new)
35   --section => new sorted MAINTAINERS file to write to (default: SECTION.new)
36   --order => Use the preferred section content output ordering (default: 0)
51       K:  Keyword - patch content regex
84     $a_index = 1000 if ($a_index == -1);
85     $b_index = 1000 if ($b_index == -1);
93 	return -1;
113     open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n";
143     my $case = " ";
144     $$hashref{$case} = "";
146     open(my $file, '<', "$filename") or die "$P: $filename: open failed - $!\n";
152         if ($line =~ m/^([A-Z]):\s*(.*)/) {
155                 $$hashref{$case} = $$hashref{$case} . $line;
158             $case = trim($lastline);
159             exists $$hashref{$case} and die "Header '$case' already exists";
160             $$hashref{$case} = $line;
165         if ($case eq " ") {
166             $$hashref{$case} = $$hashref{$case} . $lastline;
170         trim($lastline) eq "" or die ("Odd non-pattern line '$lastline' for '$case'");
173     $$hashref{$case} = $$hashref{$case} . $lastline;