Module Location

[Dan Muey]

Is there a way to find module's location?

Sure can:

my @mod = (CGI LPW Mail::Sender);
# if you could create @mod here dynamically 
# based on the use statements or name space hat'd be cool.

for my $i(@INC) {
        for(@mod) {
                s/::/\//g;
                if(-e "$i$_") { print "$i$_.pm\n"; } 
        }
}

HTH

DMuey

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]