On Thu, Oct 07, 1999 at 03:59:37PM +0200, Stas Bekman wrote:
> That's almost correct, what it does is taken a script sitting at
> URI /perl/test.pl:
>
> print "Content-type: text/plain\n\n"
> print "mod_perl rules!\n"
>
> perl actually sees it as:
>
> package Apache::ROOT::perl::test_2epl;
> use Apache qw(exit);
> sub handler {
> print "Content-type: text/plain\n\n"
> print "mod_perl rules!\n"
> }
>
>
> So if you script included __END__ or __DATA__ token like:
>
> print "Content-type: text/plain\n\n"
> print "mod_perl rules!\n"
> __END__
> some junk here
>
>
> perl actually sees it as:
>
> package Apache::ROOT::perl::test_2epl;
> use Apache qw(exit);
> sub handler {
> print "Content-type: text/plain\n\n"
> print "mod_perl rules!\n"
> __END__
> some junk here
> }
Would it be possible to remove everything after __END__ before
wrapping it into a function? Very often this is simply
documentation. How about =pod and other tokens? Do they also break the code?
Sorry, didn't use Registry so far :)
Andrei
--