fix Experimental unshift on scalar is now forbidden with newer Perl

[migration-tools.git] / mig-bin / mig-quick

diff --git a/mig-bin/mig-quick b/mig-bin/mig-quick
index ba1d7ac..59b0843 100755 (executable)
--- 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";
     }
 }