Comment module installation code

gedcom

@@ -56,7 +56,7 @@ no lib '.';
 
 use	constant	ASSUME_NOT_LIVING => 120;
 
-my @needfull;
+my @needfull;	# Tracks required modules to be installed
 
 # Install Pre-requisites
 BEGIN {
@@ -92,6 +92,7 @@ BEGIN {
 		}
 	}
 
+	# Attempt to load each module and track missing ones
 	foreach my $module(@modules) {
 		eval "use $module";
 		if($@) {
@@ -130,13 +131,15 @@ BEGIN {
 		}
 	}
 
+	# Attempt to load each module and track missing ones
 	if(scalar(@needfull)) {
 		my $list = join(' ', @needfull);
 		print "Installing $list\n";
 		$ENV{'PERL_MM_USE_DEFAULT'} = 1;
 		# system("cpan -i $list");
 		system('perl -MCPAN -e \'CPAN::Shell->install("' . join('", "', @needfull) . '")\'');
 	}
+
 	# $Devel::FIXME::REPAIR_INC = 1;
 
 	# FIXME
@@ -160,6 +163,7 @@ BEGIN {
 	};
 }
 
+# Retry loading missing modules after installation
 foreach my $module (@needfull) {
 	my ($name, $version) = $module =~ /(.+?)\s(.+)?$/;
 	$name ||= $module;