390 

   390 

   391 sub count_dependents($$);	# prototype for recursion

   391 sub count_dependents($$);	# prototype for recursion

   392 sub count_dependents($$)

   392 sub count_dependents($$)

   393 	{

   393 	{

   394 	my ($exe, $hashref) = @_;

   394 	my ($exe, $hashref) = @_;

   395 	return if (defined $$hashref{$exe});

   396 	return if (defined $$hashref{$exe});

   396 

   397 

   397 	$$hashref{$exe} = 1;

   398 	$$hashref{$exe} = 1;

   398 	foreach my $dependent (@{$exe_dependencies{$exe}})

   399 	foreach my $dependent (@{$exe_dependencies{$exe}})

   399 		{

   400 		{