svn commit: r382017 - head/devel/svk/files

[Peter Wemm]

Author: peter (src committer)
Date: Mon Mar 23 17:50:12 2015
New Revision: 382017
URL: https://svnweb.freebsd.org/changeset/ports/382017
QAT: https://qat.redports.org/buildarchive/r382017/

Log:
  Sustaining patches to make svk to work on newer perl.  This is in use
  on the FreeBSD.org cluster for historical reasons.
  
  PR:		198820

Added:
  head/devel/svk/files/
  head/devel/svk/files/patch-lib_SVK_Mirror.pm   (contents, props changed)
  head/devel/svk/files/patch-lib_SVK_Util.pm   (contents, props changed)

Added: head/devel/svk/files/patch-lib_SVK_Mirror.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/devel/svk/files/patch-lib_SVK_Mirror.pm	Mon Mar 23 17:50:12 2015	(r382017)
@@ -0,0 +1,11 @@
+--- lib/SVK/Mirror.pm.orig	2008-12-13 06:58:21 UTC
++++ lib/SVK/Mirror.pm
+@@ -452,7 +452,7 @@ sub get_svkpath {
+ }
+ 
+ for my $delegate
+-    qw( find_rev_from_changeset find_changeset sync_changeset traverse_new_changesets mirror_changesets get_commit_editor refresh change_rev_prop fromrev source_path relocate )
++    ( qw( find_rev_from_changeset find_changeset sync_changeset traverse_new_changesets mirror_changesets get_commit_editor refresh change_rev_prop fromrev source_path relocate ) )
+ {
+     no strict 'refs';
+     *{$delegate} = sub {

Added: head/devel/svk/files/patch-lib_SVK_Util.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/devel/svk/files/patch-lib_SVK_Util.pm	Mon Mar 23 17:50:12 2015	(r382017)
@@ -0,0 +1,11 @@
+--- lib/SVK/Util.pm.orig	2009-12-21 16:00:13 UTC
++++ lib/SVK/Util.pm
+@@ -88,7 +88,7 @@ use File::Glob qw(bsd_glob);
+ use autouse 'File::Basename' 	=> qw(dirname);
+ use autouse 'File::Spec::Functions' => 
+                                qw(catdir catpath splitpath splitdir tmpdir);
+-use autouse 'List::Util'        => qw( max(@) );
++use List::Util;
+ 
+ 
+ =head1 NAME