commit quilt for openSUSE:Factory

[root]

Hello community,

here is the log from the commit of package quilt for openSUSE:Factory checked 
in at 2017-10-02 16:45:10
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/quilt (Old)
 and      /work/SRC/openSUSE:Factory/.quilt.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "quilt"

Mon Oct  2 16:45:10 2017 rev:69 rq:528751 version:0.65

Changes:
--------
--- /work/SRC/openSUSE:Factory/quilt/quilt.changes      2017-08-08 
11:57:14.352928136 +0200
+++ /work/SRC/openSUSE:Factory/.quilt.new/quilt.changes 2017-10-02 
16:45:14.789829580 +0200
@@ -1,0 +2,5 @@
+Sun Sep 24 10:00:18 UTC 2017 - co...@suse.com
+
+- add perl-526.patch to work with perl 5.26
+
+-------------------------------------------------------------------

New:
----
  perl-526.patch

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ quilt.spec ++++++
--- /var/tmp/diff_new_pack.X4ZQ4e/_old  2017-10-02 16:45:15.621712619 +0200
+++ /var/tmp/diff_new_pack.X4ZQ4e/_new  2017-10-02 16:45:15.625712057 +0200
@@ -44,6 +44,7 @@
 Patch4:         suse-workaround-pseudo-release.patch
 Patch5:         mail-fix-patch-set-threading.patch
 Patch6:         quilt-translations.patch
+Patch7:         perl-526.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildArch:      noarch
 %if 0%{?suse_version}
@@ -68,6 +69,7 @@
 %patch4 -p1
 %patch5 -p1
 %patch6 -p1
+%patch7 -p1
 
 %build
 # --with-rpmbuild=/usr/lib/rpm/rpmb:

++++++ perl-526.patch ++++++
Index: quilt-0.65/test/run
===================================================================
--- quilt-0.65.orig/test/run
+++ quilt-0.65/test/run
@@ -111,7 +111,7 @@ sub flush_output()
 sub substitute_vars($)
 {
        my ($line) = @_;
-       $line =~ s[%{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg;
+       $line =~ s[%\{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg;
        return $line;
 }
 
@@ -287,7 +287,7 @@ while (defined(my $line = <SOURCE>)) {
        # Parse the next command
        if ($line =~ s/^\s*\$ ?//) {
                # Substitute %{?} with the last command's status
-               $line =~ s[%{\?}][$last_status]eg;
+               $line =~ s[%\{\?}][$last_status]eg;
 
                chomp($prog = substitute_vars($line));
                $prog_line = $lineno;