On Tue, Sep 18, 2001 at 12:44:37AM +0800, Stas Bekman wrote:
> Ken Williams wrote:
>
> > 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.
Any luck playing with this?
I tried this a while ago on that weird experimental templating system I
was nattering on about. Couldn't get it to work in 5.6.0 when compiling
a package; START couldn't be found after the flow of control exited the
program. I guess that the source code of the module gets disposed of,
rendering START unreachable. Hopefully I missed a trick and y'all have
it figured out...
- Barrie
P.S. A belated huge congrats on your ticketmaster.com gig. Wow. Too
cool.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
