projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
ad158c0
)
fix Experimental unshift on scalar is now forbidden with newer Perl
author
Jason Etheridge
<jason@EquinoxInitiative.org>
Mon, 8 Apr 2019 09:11:42 +0000 (
05:11
-0400)
committer
Jason Etheridge
<jason@EquinoxInitiative.org>
Mon, 8 Apr 2019 09:11:42 +0000 (
05:11
-0400)
mig-bin/mig-quick
patch
|
blob
|
history
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";
}
}