diff options
author | Joe Marcus Clarke <marcus@FreeBSD.org> | 2014-10-13 05:53:56 +0000 |
---|---|---|
committer | Joe Marcus Clarke <marcus@FreeBSD.org> | 2014-10-13 05:53:56 +0000 |
commit | ae096929541215655af04979946cc472122f9e7c (patch) | |
tree | 6de6c7cf3a89edeac7e76fb673ee820af89bea8d /ports-mgmt/portlint/src | |
parent | - Update to 0.4-2 (diff) |
Update to 2.15.6.
* Check to make sure each instance of USES is properly sorted.
PR: 193792
Notes
Notes:
svn path=/head/; revision=370756
Diffstat (limited to 'ports-mgmt/portlint/src')
-rw-r--r-- | ports-mgmt/portlint/src/portlint.pl | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/ports-mgmt/portlint/src/portlint.pl b/ports-mgmt/portlint/src/portlint.pl index 9d49caa1cf4b..4fca6af84eb4 100644 --- a/ports-mgmt/portlint/src/portlint.pl +++ b/ports-mgmt/portlint/src/portlint.pl @@ -15,7 +15,7 @@ # was removed. # # $FreeBSD$ -# $MCom: portlint/portlint.pl,v 1.338 2014/10/08 23:35:33 marcus Exp $ +# $MCom: portlint/portlint.pl,v 1.340 2014/10/13 05:52:02 marcus Exp $ # use strict; @@ -51,7 +51,7 @@ $portdir = '.'; # version variables my $major = 2; my $minor = 15; -my $micro = 5; +my $micro = 6; sub l { '[{(]'; } sub r { '[)}]'; } @@ -1742,11 +1742,13 @@ sub checkmakefile { # whole file: Check if USES is sorted # print "OK: checking to see if USES is sorted.\n" if ($verbose); - if ($makevar{USES} ne '') { - my @suses = sort(split / /, $makevar{USES}); - if (join(" ", @suses) ne $makevar{USES}) { - &perror("WARN", $file, -1, "the options to USES are not sorted. ". - "Please consider sorting them."); + while ($whole =~ /\nUSES.=\s*(.+)\n/g) { + my $lineno = &linenumber($`); + my $srex = $1; + my @suses = sort(split / /, $srex); + if (join(" ", @suses) ne $srex) { + &perror("WARN", $file, $lineno, "the options to USES are not ". + "sorted. Please consider sorting them."); } } |