[Pkg-sympa-commits] [sympa] 01/03: Fix SQLite upgrade patch to avoid errors with perl <= 5.14

[Emmanuel Bouthenot]

This is an automated email from the git hooks/post-receive script.

kolter pushed a commit to branch debian/wheezy
in repository sympa.

commit 7ec4d088b9f4bd8d613d54365589b50359bae0f4
Author: Emmanuel Bouthenot <kolter at openics.org>
Date:   Wed Apr 16 21:48:54 2014 +0000

    Fix SQLite upgrade patch to avoid errors with perl <= 5.14
---
 debian/patches/1011_fix_sqlite_db_upgrade | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/debian/patches/1011_fix_sqlite_db_upgrade b/debian/patches/1011_fix_sqlite_db_upgrade
index b191fa1..64a76fc 100644
--- a/debian/patches/1011_fix_sqlite_db_upgrade
+++ b/debian/patches/1011_fix_sqlite_db_upgrade
@@ -207,7 +207,7 @@ Last-Update: 2011-11-19
 +							}
 +						}
 +						my $sqloldfields = join(", ", @oldfields);
-+						my $sqlnewfieldstype = join(", ", map { "$_ $db_struct{$Conf::Conf{'db_type'}}{${t}}{$_}" } keys $db_struct{$Conf::Conf{'db_type'}}{${t}});
++						my $sqlnewfieldstype = join(", ", map { "$_ $db_struct{$Conf::Conf{'db_type'}}{$t}{$_}" } keys %{$db_struct{$Conf::Conf{'db_type'}}{$t}});
 +
 +						# SQLite doesn't support changes on columns types hence we use a dirty workaround here:
 +						# we create a temporary table (a clone of the table containing the field to update)
@@ -246,8 +246,8 @@ Last-Update: 2011-11-19
 +						&do_log('notice', $sqlcode);
 +						$dbh->do($sqlcode);
 +						# Update real structure
-+						foreach my $newfield (sort keys $db_struct{$Conf::Conf{'db_type'}}{${t}}) {
-+							$real_struct{$t}{$newfield} = $db_struct{$Conf::Conf{'db_type'}}{${t}}{$newfield};
++						foreach my $newfield (sort keys %{$db_struct{$Conf::Conf{'db_type'}}{$t}}) {
++							$real_struct{$t}{$newfield} = $db_struct{$Conf::Conf{'db_type'}}{$t}{$newfield};
 +						}
 +					}
 +					push @report, sprintf('Field %s in table %s, structure updated', $f, $t);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/sympa.git