Tools/scripts/chkversion.pl: remove svn compatibility

Differential Revision:	https://reviews.freebsd.org/D29451

1 files changed, 0 insertions, 17 deletions

diff --git a/Tools/scripts/chkversion.pl b/Tools/scripts/chkversion.pl
index 4f21ec2985cd..728dfcd2d820 100755
--- a/Tools/scripts/chkversion.pl
+++ b/Tools/scripts/chkversion.pl
@@ -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: