cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tools/scripts/chkversion.pl: remove svn compatibility

Browse Source 
Differential Revision:	https://reviews.freebsd.org/D29451
This commit is contained in:
Rene Ladan 2021-04-06 12:35:55 +02:00
parent ba2871e5f5
commit 88917e9f46
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Tools/scripts/chkversion.pl
View File

@ -53,7 +53,6 @@
# and enter something like
#
# BLAME=yes (git specific)
# SVNBLAME=yes # XXX: SVN specific
# ALLPORTS=yes
# RCPT_ORIGIN=you@domain.example
# RCPT_VERSION=you@domain.example
@ -64,10 +63,6 @@
# If the environment variable BLAME is set and the ports tree is checked
# out by git, every entry is listed with a record of the last git commit.
#
# XXX: SVN specific:
# If the environment variable SVNBLAME is set and the ports tree is checked
# out by SVN, every entry is listed with a record of the last SVN commit.
#
use v5.20;
use strict;
@ -83,7 +78,6 @@ use POSIX;
my $portsdir = $ENV{PORTSDIR} // '/usr/ports';
my $versiondir = $ENV{VERSIONDIR} // '/var/db/chkversion';
my $svnblame = exists $ENV{SVNBLAME}; # XXX: SVN specific
my $blame = exists $ENV{BLAME};
my $allports = exists $ENV{ALLPORTS};
@ -100,7 +94,6 @@ my $cc_author = exists $ENV{CC_AUTHOR};
my $cc_mntnr = exists $ENV{CC_MAINTAINER};
my $make = '/usr/bin/make';
my $svn = '/usr/local/bin/svn'; # XXX: SVN specific
my $git = '/usr/local/bin/git';
my $sendmail = '/usr/sbin/sendmail';
my $pkg = first { -x $_ } ($ENV{PKG} // '', '/usr/local/sbin/pkg', '/usr/sbin/pkg');
@ -151,7 +144,6 @@ sub wanted() {
# Skip directories we shouldn't descend into
# if (/^.git$/
if (/^\.git$/
|| /^\.svn$/ # XXX: SVN specific
|| $File::Find::name =~ m"^$portsdir/(?:Mk|Templates|Tools|distfiles|packages)$"os
|| $File::Find::name =~ m"^$portsdir/[^/]+/pkg$"os)
{
@ -304,15 +296,6 @@ sub printlog($fh, $portdir, $rev) {
my @log = readfrom $portdir, $git, 'log', "${rev}^..HEAD", 'Makefile';
print $fh " | $_\n" for @log;
}
# XXX: SVN specific:
elsif ($svnblame && -d "$portsdir/.svn") {
my @svnlog = readfrom $portdir, $svn, 'log', ($rev ? "-r$rev" : ''), 'Makefile';
for (@svnlog) {
my $in_log = /^-{20,}$/ ... /^(-{20,}|={70,})$/;
print $fh " | $_\n"
if ($in_log && $in_log ne 1 && $in_log !~ /E0$/);
}
}
}
# Git version: