diff options
| author |   Andreas K. Hüttel <dilfridge@gentoo.org> | 2017-07-08 00:35:23 +0200 |
|---|---|---|
| committer | Andreas K. Hüttel <dilfridge@gentoo.org> | 2017-07-08 00:35:23 +0200 |
| commit | ecb172112c03bebc7862a6d04967f25a4d27b847 (patch) | |
| tree | 710eb919c2b62d39a039f6604105d5d559eb192a /app-backup/backuppc/files | |
| parent | dev-perl/ZMQ-Constants: Add build fix for Perl 5.26, bug 623196 (diff) | |
| download | gentoo-ecb172112c03bebc7862a6d04967f25a4d27b847.tar.gz gentoo-ecb172112c03bebc7862a6d04967f25a4d27b847.tar.bz2 gentoo-ecb172112c03bebc7862a6d04967f25a4d27b847.zip | |
app-backup/backuppc: Add revision bump with Perl 5.26 compatibility patch, bug 594128
Package-Manager: Portage-2.3.6, Repoman-2.3.2
Diffstat (limited to 'app-backup/backuppc/files')
| -rw-r--r-- | app-backup/backuppc/files/backuppc-3.3.1-perl526.patch | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/app-backup/backuppc/files/backuppc-3.3.1-perl526.patch b/app-backup/backuppc/files/backuppc-3.3.1-perl526.patch new file mode 100644 index 000000000000..3a04f94835c3 --- /dev/null +++ b/app-backup/backuppc/files/backuppc-3.3.1-perl526.patch @@ -0,0 +1,21 @@ +diff -ruN BackupPC-3.3.1.orig/lib/BackupPC/Lib.pm BackupPC-3.3.1/lib/BackupPC/Lib.pm +--- BackupPC-3.3.1.orig/lib/BackupPC/Lib.pm 2015-01-12 01:19:53.000000000 +0100 ++++ BackupPC-3.3.1/lib/BackupPC/Lib.pm 2017-07-08 00:31:52.100003197 +0200 +@@ -1261,7 +1261,7 @@ + # + # Replace scalar variables first + # +- $arg =~ s[\${(\w+)}(\+?)]{ ++ $arg =~ s[\$\{(\w+)}(\+?)]{ + exists($vars->{$1}) && ref($vars->{$1}) ne "ARRAY" + ? ($2 eq "+" ? $bpc->shellEscape($vars->{$1}) : $vars->{$1}) + : "\${$1}$2" +@@ -1270,7 +1270,7 @@ + # Now replicate any array arguments; this just works for just one + # array var in each argument. + # +- if ( $arg =~ m[(.*)\${(\w+)}(\+?)(.*)] && ref($vars->{$2}) eq "ARRAY" ) { ++ if ( $arg =~ m[(.*)\$\{(\w+)}(\+?)(.*)] && ref($vars->{$2}) eq "ARRAY" ) { + my $pre = $1; + my $var = $2; + my $esc = $3; |