diff options
author | Johnny Willemsen <jwillemsen@users.noreply.github.com> | 2016-10-04 10:56:55 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-10-04 10:56:55 +0200 |
commit | 5722c74b41ffe788410f252f21a2c3947bf8d8f1 (patch) | |
tree | 501a32713a476029a3e7ce47b24f765c693c5279 | |
parent | 299eaff04c78b97522d591be2eb7937f265f930b (diff) | |
parent | 40cb5c604df5682bef240be456b52e135615770d (diff) | |
download | ATCD-5722c74b41ffe788410f252f21a2c3947bf8d8f1.tar.gz |
Merge pull request #308 from jwillemsen/master
Make this script work again with newer perl versions
-rwxr-xr-x | ACE/bin/diff-builds.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ACE/bin/diff-builds.pl b/ACE/bin/diff-builds.pl index 079fa54807a..64b88e6caff 100755 --- a/ACE/bin/diff-builds.pl +++ b/ACE/bin/diff-builds.pl @@ -199,7 +199,8 @@ sub find_builds ($$$$$) } if ($begin) { - %{$revision_hash}->{$columns[$selectcolumn_name]} = $columns[$selectcolumn_revision]; + my $temp = %{$revision_hash}; + $temp->{$columns[$selectcolumn_name]} = $columns[$selectcolumn_revision]; push (@{$rbuilds}, $columns[$selectcolumn_name]); } } |