kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Really fix the bug where portlint looks through COMMENT for direct command

Browse source 
usage.
This commit is contained in:
Joe Marcus Clarke 2003-08-15 17:47:21 +00:00
parent 450dc48405
commit 12a8b0c085
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=86992
4 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
devel/portlint/Makefile
View file

@ -8,7 +8,7 @@
#
PORTNAME= portlint
PORTVERSION= 2.4.2
PORTVERSION= 2.4.3
CATEGORIES= devel
MASTER_SITES= # none
DISTFILES= # none

8
devel/portlint/src/portlint.pl
View file

@ -17,7 +17,7 @@
# OpenBSD and NetBSD will be accepted.
#
# $FreeBSD$
# $Id: portlint.pl,v 1.8 2003/08/15 04:59:05 marcus Exp $
# $Id: portlint.pl,v 1.10 2003/08/15 17:45:51 marcus Exp $
#
use vars qw/ $opt_a $opt_A $opt_b $opt_c $opt_h $opt_t $opt_v $opt_M $opt_N $opt_B $opt_V /;
@ -40,7 +40,7 @@ $portdir = '.';
# version variables
my $major = 2;
my $minor = 4;
my $micro = 2;
my $micro = 3;
sub l { '[{(]'; }
sub r { '[)}]'; }
@ -909,7 +909,7 @@ ldconfig ln md5 mkdir mv patch perl rm rmdir ruby sed sh touch tr which xargs xm
foreach my $i (keys %cmdnames) {
if ($j =~ /[ \t\/]$i[ \t\n;]/
&& $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+$i/
&& $j !~ /^COMMENT(.)?=/) {
&& $j !~ /\nCOMMENT(.)?=/) {
&perror("WARN: possible direct use of command \"$i\" ".
"found. use $cmdnames{$i} instead.");
}
@ -918,7 +918,7 @@ ldconfig ln md5 mkdir mv patch perl rm rmdir ruby sed sh touch tr which xargs xm
foreach my $i (keys %autocmdnames) {
if ($j =~ /[\s\/]($i\d*)[\s;]/
&& $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+($i\d*)/
&& $j !~ /^COMMENT(.)?=/) {
&& $j !~ /\nCOMMENT(.)?=/) {
&perror("WARN: possible direct use of command \"$1\" ".
"found. Use $autocmdnames{$i} instead and ".
"set according USE_*_VER= flag");

2
ports-mgmt/portlint/Makefile
View file

@ -8,7 +8,7 @@
#
PORTNAME= portlint
PORTVERSION= 2.4.2
PORTVERSION= 2.4.3
CATEGORIES= devel
MASTER_SITES= # none
DISTFILES= # none

8
ports-mgmt/portlint/src/portlint.pl
View file

@ -17,7 +17,7 @@
# OpenBSD and NetBSD will be accepted.
#
# $FreeBSD$
# $Id: portlint.pl,v 1.8 2003/08/15 04:59:05 marcus Exp $
# $Id: portlint.pl,v 1.10 2003/08/15 17:45:51 marcus Exp $
#
use vars qw/ $opt_a $opt_A $opt_b $opt_c $opt_h $opt_t $opt_v $opt_M $opt_N $opt_B $opt_V /;
@ -40,7 +40,7 @@ $portdir = '.';
# version variables
my $major = 2;
my $minor = 4;
my $micro = 2;
my $micro = 3;
sub l { '[{(]'; }
sub r { '[)}]'; }
@ -909,7 +909,7 @@ ldconfig ln md5 mkdir mv patch perl rm rmdir ruby sed sh touch tr which xargs xm
foreach my $i (keys %cmdnames) {
if ($j =~ /[ \t\/]$i[ \t\n;]/
&& $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+$i/
&& $j !~ /^COMMENT(.)?=/) {
&& $j !~ /\nCOMMENT(.)?=/) {
&perror("WARN: possible direct use of command \"$i\" ".
"found. use $cmdnames{$i} instead.");
}
@ -918,7 +918,7 @@ ldconfig ln md5 mkdir mv patch perl rm rmdir ruby sed sh touch tr which xargs xm
foreach my $i (keys %autocmdnames) {
if ($j =~ /[\s\/]($i\d*)[\s;]/
&& $j !~ /\n[A-Z]+_TARGET[?+]?=[^\n]+($i\d*)/
&& $j !~ /^COMMENT(.)?=/) {
&& $j !~ /\nCOMMENT(.)?=/) {
&perror("WARN: possible direct use of command \"$1\" ".
"found. Use $autocmdnames{$i} instead and ".
"set according USE_*_VER= flag");