From 5577d18b3fd5223a8a0bd7ca4678ba644bdbcd62 Mon Sep 17 00:00:00 2001 From: Joe Marcus Clarke Date: Mon, 28 Jul 2014 13:21:06 +0000 Subject: Update to 2.15.4. Use File::Basename so that only the patch filename is checked for the 100 character limit. PR: 192161 --- ports-mgmt/portlint/Makefile | 2 +- ports-mgmt/portlint/src/portlint.pl | 9 ++++++--- 2 files changed, 7 insertions(+), 4 deletions(-) (limited to 'ports-mgmt') diff --git a/ports-mgmt/portlint/Makefile b/ports-mgmt/portlint/Makefile index 2563e1df6025..bd1e051eaf1b 100644 --- a/ports-mgmt/portlint/Makefile +++ b/ports-mgmt/portlint/Makefile @@ -2,7 +2,7 @@ # $FreeBSD$ PORTNAME= portlint -PORTVERSION= 2.15.3 +PORTVERSION= 2.15.4 CATEGORIES= ports-mgmt MASTER_SITES= # none DISTFILES= # none diff --git a/ports-mgmt/portlint/src/portlint.pl b/ports-mgmt/portlint/src/portlint.pl index 3d54a2973013..6397abfda738 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.325 2014/07/12 14:39:55 marcus Exp $ +# $MCom: portlint/portlint.pl,v 1.327 2014/07/28 13:15:56 marcus Exp $ # use strict; @@ -24,6 +24,7 @@ use warnings; use Getopt::Std; use File::Find; use IPC::Open2; +use File::Basename; use POSIX qw(strftime); sub perror($$$$); @@ -50,7 +51,7 @@ $portdir = '.'; # version variables my $major = 2; my $minor = 15; -my $micro = 3; +my $micro = 4; sub l { '[{(]'; } sub r { '[)}]'; } @@ -1046,7 +1047,9 @@ sub checkpatch { return; } - if (length $file > 100) { + my $bfile = basename($file); + + if (length $bfile > 100) { &perror("FATAL", $file, -1, "make sure patch file names contain no ". "more than 100 characters."); } -- cgit v1.2.3