Remove installer debug logging.

The -debug option to make_installer.pl is not usually called; it logs
function calls at various points during the installer.  However, it is
not used consistently within the code, and the same information can be
obtained via the Perl debugger or profiling tools.

1 files changed, 0 insertions, 16 deletions

diff --git a/solenv/bin/modules/installer/files.pm b/solenv/bin/modules/installer/files.pm
index 379144ebc916..cd2350dddb9f 100644
--- a/solenv/bin/modules/installer/files.pm
+++ b/solenv/bin/modules/installer/files.pm
@@ -41,8 +41,6 @@ sub check_file
 {
     my ($arg) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::check_file : $arg"); }
-
     if(!( -f $arg ))
     {
         installer::exiter::exit_program("ERROR: Cannot find file $arg", "check_file");
@@ -54,8 +52,6 @@ sub read_file
     my ($localfile) = @_;
     my @localfile = ();
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::read_file : $localfile"); }
-
     open( IN, "<$localfile" ) || installer::exiter::exit_program("ERROR: Cannot open file $localfile for reading", "read_file");
 
 #   Don't use "my @localfile = <IN>" here, because
@@ -78,8 +74,6 @@ sub save_file
 {
     my ($savefile, $savecontent) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::save_file : $savefile : $#{$savecontent}"); }
-
     if ( open( OUT, ">$savefile" ) )
     {
         print OUT @{$savecontent};
@@ -105,8 +99,6 @@ sub save_hash
 {
     my ($savefile, $hashref) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::save_hash : $savefile"); }
-
     my @printcontent = ();
 
     my $itemkey;
@@ -128,8 +120,6 @@ sub save_array_of_hashes
 {
     my ($savefile, $arrayref) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::save_array_of_hashes : $savefile : $#{$arrayref}"); }
-
     my @printcontent = ();
 
     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
@@ -158,8 +148,6 @@ sub save_array_of_hashes_modules
 {
     my ($savefile, $arrayref) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::save_array_of_hashes : $savefile : $#{$arrayref}"); }
-
     my @printcontent = ();
 
     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
@@ -192,8 +180,6 @@ sub read_binary_file
 {
     my ($filename) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::read_binary_file : $filename"); }
-
     my $file;
 
     open( IN, "<$filename" ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for reading", "read_binary_file");
@@ -211,8 +197,6 @@ sub save_binary_file
 {
     my ($file, $filename) = @_;
 
-    if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::save_binary_file : $filename"); }
-
     open( OUT, ">$filename" ) || installer::exiter::exit_program("ERROR: Cannot open file $filename for writing", "save_binary_file");
     binmode OUT;
     print OUT $file;