Lines Matching +full:- +full:- +full:trim +full:- +full:-

1 #!/usr/bin/perl -w
2 # SPDX-License-Identifier: GPL-2.0
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;
101 sub trim {  subroutine
113     open(my $file, '>', "$filename") or die "$P: $filename: open failed - $!\n";
146     open(my $file, '<', "$filename") or die "$P: $filename: open failed - $!\n";
152         if ($line =~ m/^([A-Z]):\s*(.*)/) {
153             $line = $1 . ":\t" . trim($2) . "\n";
158             $case = trim($lastline);
170         trim($lastline) eq "" or die ("Odd non-pattern line '$lastline' for '$case'");