diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2016-10-04 10:56:18 +0200 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2016-10-04 10:56:18 +0200 |
commit | 40cb5c604df5682bef240be456b52e135615770d (patch) | |
tree | 501a32713a476029a3e7ce47b24f765c693c5279 | |
parent | 4e484bfb6c0ee71bde2313e333368a6b43fe937d (diff) | |
download | ATCD-40cb5c604df5682bef240be456b52e135615770d.tar.gz |
Make this script work again with newer perl versions
* ACE/bin/diff-builds.pl:
-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]); } } |