From: Jason Etheridge <jason@EquinoxInitiative.org>
Date: Mon, 8 Apr 2019 09:11:42 +0000 (-0400)
Subject: fix Experimental unshift on scalar is now forbidden with newer Perl
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=00046080c94f68d8fa9277b02808975fb2347d15;hp=ad158c0688fafd046887fe34da9083a3784dadec

fix Experimental unshift on scalar is now forbidden with newer Perl
---

diff --git a/mig-bin/mig-quick b/mig-bin/mig-quick
index ba1d7ac..59b0843 100755
--- a/mig-bin/mig-quick
+++ b/mig-bin/mig-quick
@@ -46,7 +46,7 @@ my %pass_thru = ('add'=>[],'skip-iconv'=>[],'clean'=>[],'convert'=>[],'stage'=>[
 foreach my $a (@ARGV) {
     if ($a =~ /^--([a-z]+)-(.*)$/) {
         $pass_thru{$1} = [] if ! defined $pass_thru{$1};
-        unshift $pass_thru{$1}, "--$2";
+        unshift @{ $pass_thru{$1} }, "--$2";
     }
 }