debian/changelog

-libswiss-perl (1.75-1) UNRELEASED; urgency=low
+swissknife (1.75-1) UNRELEASED; urgency=medium
 
-  * Initial Release
-  Tried to finalise the package but got for version 1.73 (not checked for last version)
-
-  Files=10, Tests=20,  2 wallclock secs ( 0.06 usr  0.02 sys +  1.64 cusr  0.03 csys =  1.75 CPU)
-  Result: FAIL
-  Failed 5/10 test programs. 5/20 subtests failed.
-  dh_auto_test: perl Build test --verbose 1 returned exit code 255
+  * Team upload.
   * Moved packaging from SVN to Git
+  * Standards-Version: 4.1.4
 
  -- Andreas Tille <tille@debian.org>  Tue, 03 Jan 2017 07:35:48 +0100
+
+swissknife (1.67-1.2) unstable; urgency=medium
+
+  * Non-maintainer upload.
+  * Fix "FTBFS with perl 5.26: Unescaped left brace in regex":
+    apply patches from Niko Tyni which fix regexp quantifiers and regexp
+    quoting. (Closes: #826505)
+
+ -- gregor herrmann <gregoa@debian.org>  Fri, 14 Jul 2017 23:24:18 +0200
+
+swissknife (1.67-1.1) unstable; urgency=medium
+
+  * Non-maintainer upload.
+  * Fix "FTBFS with perl 5.22: Can't use 'defined(@array)'":
+    Remove defined() from lib/SWISS/CCalt_prod.pm.
+    "defined(@array)" and "defined(%hash)" are fatal errors since Perl 5.21.x
+    (deprecated since 5.6.1).
+    (Closes: #789671)
+
+ -- gregor herrmann <gregoa@debian.org>  Thu, 27 Aug 2015 19:45:40 +0200
+
+swissknife (1.67-1) unstable; urgency=low
+
+  * Initial Release (Closes: #556458).
+
+ -- Steffen Moeller <moeller@debian.org>  Mon, 16 Nov 2009 10:18:32 +0100

debian/control

-Source: libswiss-perl
+Source: swissknife
 Maintainer: Debian Med Packaging Team <debian-med-packaging@lists.alioth.debian.org>
 Uploaders: Steffen Moeller <moeller@debian.org>,
            Andreas Tille <tille@debian.org>
@@ -8,9 +8,9 @@ Priority: optional
 Build-Depends: debhelper (>= 10),
                libmodule-build-perl
 Build-Depends-Indep: perl
-Standards-Version: 4.1.2
-Vcs-Browser: https://anonscm.debian.org/cgit/debian-med/libswiss-perl.git
-Vcs-Git: https://anonscm.debian.org/git/debian-med/libswiss-perl.git
+Standards-Version: 4.1.4
+Vcs-Browser: https://salsa.debian.org/med-team/swissknife
+Vcs-Git: https://salsa.debian.org/med-team/swissknife.git
 Homepage: http://swissknife.sourceforge.net
 
 Package: libswiss-perl

debian/patches/perl_5.26.patch

+Author: Niko Tyni, 
+        gregor herrmann <gregoa@debian.org>
+Last-Update: Fri, 14 Jul 2017 23:24:18 +0200
+Bug-Debian: https://bugs.debian.org/826505
+Description: Fix "FTBFS with perl 5.26: Unescaped left brace in regex":
+    apply patches from Niko Tyni which fix regexp quantifiers and regexp
+    quoting
+
+diff --git a/lib/SWISS/BaseClass.pm b/lib/SWISS/BaseClass.pm
+index 34ce34d..ae76059 100644
+--- a/lib/SWISS/BaseClass.pm
++++ b/lib/SWISS/BaseClass.pm
+@@ -168,7 +168,7 @@ sub setEvidenceTags {
+ sub addEvidenceTag {
+   my $self = shift;
+   my $tag = shift;
+-  unless ($self->{'evidenceTags'} =~ /[\{\,]$tag[\}\,]/) {
++  unless ($self->{'evidenceTags'} =~ /[\{\,]\Q$tag\E[\}\,]/) {
+     if ($self->{'evidenceTags'} eq '{}') {
+       $self->{'evidenceTags'} = '{' . $tag . '}';
+     } else {
+diff --git a/lib/SWISS/TextFunc.pm b/lib/SWISS/TextFunc.pm
+index 5a340cd..47641a1 100644
+--- a/lib/SWISS/TextFunc.pm
++++ b/lib/SWISS/TextFunc.pm
+@@ -193,7 +193,7 @@ sub wrapOn {
+                   # of length 1 ($sepLength = 1)
+                   my $sepLength = 1;
+                   my $w1 = $cutPos - $sepLength;
+-                  if ($postMatch =~ /^(\S{0,$w1}$separators[$j])/) {
++                  if ($w1 >= 0 and $postMatch =~ /^(\S{0,$w1}$separators[$j])/) {
+                     $cutPos = length($1);
+                     last;
+                   }

debian/patches/series

+# perl_5.26.patch