listdeps.pl used deprecated perl syntax.

Change-Id: Iecf7d9e0a1ffadf730686a9b61d971167f1d5683
Reviewed-on: http://gfw160.aus.stglabs.ibm.com:8080/gerrit/21793
Tested-by: Jenkins Server
Reviewed-by: STEPHEN M. CPREK <smcprek@us.ibm.com>
Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>

1 files changed, 11 insertions, 11 deletions

diff --git a/src/build/tools/listdeps.pl b/src/build/tools/listdeps.pl
index bdea5e0f2..25d2e9f7b 100755
--- a/src/build/tools/listdeps.pl
+++ b/src/build/tools/listdeps.pl
@@ -116,7 +116,7 @@ chdir "$image_directory";
 
 my $module_name;
 my $depends;
-my %FunctionMap;
+my $FunctionMap = {};
 
 #slurp in all the modules names from the img directory
 my @module_names = < *[!_][!r][!t].so >;
@@ -142,9 +142,9 @@ foreach $module_name  (@module_names )
 
         my $function = $values[2];
 
-        if (not defined %FunctionMap->{ $function })
+        if (not defined $FunctionMap->{ $function })
         {
-            %FunctionMap->{ $function } =  $library;
+            $FunctionMap->{ $function } =  $library;
         }
     }
 }
@@ -184,7 +184,7 @@ else
 }
 
 # list of libs which are not unloaded
-my %resident_modules = (
+my $resident_modules = {
     "libtargeting.so"      => '1',
     "libhwas.so"           => '1' ,
     "libdevicefw.so"       => '1',
@@ -218,10 +218,10 @@ my %resident_modules = (
     "libipmi.so"           => '1',
     "libvpd.so"            => '1',
     "libsecureboot_trusted.so" => '1',
-);
+};
 
 # has with library to istep list file were the DepMod array is kept
-my %istepFiles = (
+my $istepFiles = {
     "libslave_sbe.so"               => "istep06list.H" ,
     "libnest_chiplets.so"           => "istep07list.H" ,
     "libedi_ei_initialization.so"   => "istep08list.H" ,
@@ -236,7 +236,7 @@ my %istepFiles = (
     "libcore_activate.so"           => "istep16list.H" ,
     "libtod_init.so"                => "istep18list.H" ,
     "libstart_payload.so"           => "istep21list.H" ,
-);
+};
 
 # array to hold list of dependent libraries
 my @Dependencies;
@@ -252,7 +252,7 @@ foreach my $module_name  (@istep_modules )
     }
     else
     {
-        %seen = %resident_modules;
+        %seen = $resident_modules;
     }
 
     @Dependencies = ();
@@ -271,7 +271,7 @@ foreach my $module_name  (@istep_modules )
 
         my $elem = $values[1];
 
-        my $lib = %FunctionMap->{ $elem};
+        my $lib = $FunctionMap->{ $elem};
 
         # if we have this module in our "seen it" array, just skip it
         # otherwise we will add it as a new dependency
@@ -283,7 +283,7 @@ foreach my $module_name  (@istep_modules )
     # should we validate?
     if( $validate_deps )
     {
-        validate( $module_name, %istepFiles->{$module_name} );
+        validate( $module_name, $istepFiles->{$module_name} );
     }
 
     # does user want us to print the dependencies to the screen?
@@ -377,7 +377,7 @@ sub validate
     {
         # check if the there exists a match
         if ( !(defined $ListedDeps{$match}) && ($match) &&
-             !(defined $resident_modules{ $match } ) )
+             !(defined $resident_modules->{ $match } ) )
         {
           print "$module is MISSING DEPENDENCY $match\n";
           print "\nplease add \"DEP_LIB($match),\"";