in reply to 'reflection', aka traversing symbol tables

You're applying your matches to the names, not the files. Keep strict and warnings, here's a fairly cheesy approach:

my $cvs_match = qr/whatever/;
for (keys %INC) {
    push @versions, ($foo = `perldoc -m $_`) =~ /$cvs_match/;
}

[download]
Sorry that's not the whole job, but it's an outline.

After Compline,
Zaxo

Replies are listed 'Best First'.
Re: Re: 'reflection', aka traversing symbol tables
by d_i_r_t_y (Monk) on Apr 06, 2002 at 08:33 UTC
    thanks for your reply. i should have included some context info. what i want to do is to be able to print the values of each module's $CVS_REVISION variable at the time that the source was initially parsed by Perl (which may be a different value than when this function is called). The intent is that i'd like to know what CVS versions of each module are being run in the currently executing mod_perl application.

    cheers, matt
[reply]

In Section Seekers of Perl Wisdom