Stas Bekman <[EMAIL PROTECTED]> wrote:
> On Sat, 8 Sep 2001, raptor wrote:
>> my $eval = join ( '', qq{
>> package $package;
>> my $request;
>> START:
>> use Apache qw(exit);
>> $usercode
>> sub handler {
>> $package::request = \$r;
>> goto START;
>> };
>> };
>
> Hmm, that's an interesting idea. goto() can be very useful at times,
> even if it's considered evil. Your solution seems to be too easy :)
> Gotta go to sleep on it and see if there are some hidden issues with it.
I usually like to use a labeled 'next' or 'last' instead of the 'goto':
my $eval = qq{
package $package;
my $request;
REQUEST: {
use Apache qw(exit);
$usercode
sub handler {
$package::request = \$r;
next REQUEST;
}
}
};
(I haven't followed this thread, so I don't know what the larger problem
is that you're solving.)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
