>>>>> "JupiterHost" == JupiterHost Net <[EMAIL PROTECTED]> writes:
JupiterHost> Hello,
>> Is there any possible way that somebody writing a "plug-in" would be
>> able to some how dump the code from the require'ing script? The
>> people writing the plug-ins do not have access to any of the code,
>> so im trying to make sure they can't access it in any other way.
JupiterHost> If I was trying to see the source I'd:
JupiterHost> open ZERO, $0 or die "Could not peek $!";
JupiterHost> print while(<ZERO>);
JupiterHost> close ZERO
And more than that:
my %sources;
local *ARGV; local $/;
@ARGV = ($0, values %INC);
while (<>) {
$sources{$ARGV} = $_;
}
There. The entire source code for the application is now in %sources.
Every .pm, every require, and the top-level application.
Enjoy.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
