#!/usr/bin/perl -w

#################################################################################
#
# findINC 
# Wed Sep  5 2001
# Rich Reuter
#
# Find a perl module in @INC.  Can match part or all of a module name.
#
#################################################################################

#######################################################
# Setup variables and packages
#######################################################
use strict;
use File::Find;

my @dirs = @INC;
# can use 'push(@dirs,"<dir_name>");' if there are dirs 
# that are used to store modules, but is not part of @INC

my $module;

#######################################################
# MAIN
#######################################################

# Make sure that only one module name has been specified
if ((!$ARGV[0]) || ($ARGV[1])) {
	die qq(Specify one module to search for!\n);
} else {
	$module = $ARGV[0];
}

# Substitute "::" with "/" to build path name
$module =~ s|::|/|g;

find (\&checkForModule, @dirs);

sub checkForModule() {
	my $element = $File::Find::name;
	if ($element =~ $module) {
		# Re-substitute "/" with "::" for printing purposes
		$module =~ s|/|::|g;
		print qq($module matched at $element\n);
	}
}