Qualify hash as such

Attempt to fix #2656

git-svn-id: http://svn.osgeo.org/postgis/trunk@12280 b70326c6-7e19-0410-871a-916f4a2858ee

diff --git a/utils/postgis_proc_upgrade.pl b/utils/postgis_proc_upgrade.pl
index 93e473866568636c4bf2ca4780a11291766f7d28..a9432816984a69694174ff31766a8d84d551e228 100755 (executable)
--- a/utils/postgis_proc_upgrade.pl
+++ b/utils/postgis_proc_upgrade.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 #
 # PostGIS - Spatial Types for PostgreSQL
@@ -112,7 +112,7 @@ sub find_last_updated
 {
   my $type = shift;
   my $sig = shift;
-  for my $ver ( sort { $b cmp $a } keys $objs ) {
+  for my $ver ( sort { $b cmp $a } keys %$objs ) {
     if ( $objs->{$ver}->{$type}->{$sig} ) {
       return $ver;
     }