From 4b9d299e908ad9d0cba77251ae284154aa4c30cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Mon, 20 Nov 2017 10:41:52 +0100
Subject: [PATCH] Make update-deps-releases.pl work with older perl

---
 tools/update-deps-releases.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/update-deps-releases.pl b/tools/update-deps-releases.pl
index 3536ed101..e22cef424 100755
--- a/tools/update-deps-releases.pl
+++ b/tools/update-deps-releases.pl
@@ -11,7 +11,7 @@ use Data::Dumper qw(Dumper);
 use Carp;
 use Term::ANSIColor;
 use Term::ReadKey;
-use List::Util qw(first unpairs);
+use List::Util qw(first);
 use Clone qw(clone);
 
 sub get_deps {
@@ -467,7 +467,7 @@ while (1) {
                 for my $op (@operations) {
                     update_changelog($op->{dep}, $op->{version}, @{$op->{reasons}})
                         if @{$op->{reasons}};
-                    update_deps_versions(".deps-update/$op->{dep}/rebar.config", unpairs(@{$op->{operations}}))
+                    update_deps_versions(".deps-update/$op->{dep}/rebar.config", map {@{$_}[0,1] } @{$op->{operations}})
                         if @{$op->{operations}};
                     if ($git_info->{$op->{dep}}->{last_tag} ne $op->{version}) {
                         update_app_src($op->{dep}, $op->{version});