Re: End of block actions WITHOUT magic lexicals?

[pcg]

On Sat, Jul 21, 2001 at 04:24:41AM -0400, Michael G Schwern <[EMAIL PROTECTED]> wrote:
> I want the above code to somehow work as commented.  By some magic way

wlel, thinking in XS, you could probably do it from an xs function, somehow
like this (untested):

        /* first, find foo */
        GV *gv = gv_fetchpv("foo", TRUE, SVt_IV);
        LEAVE;
        /* localize it */
        save_scalar (gv);
        /* increment it */
        sv_setiv(GvSV(gv), SvIV(GvSV(gv))+1);
        ENTER;

It's a hack. Also it's totally unclear to me (from your description),
wether FOO: foo etc.. are all named the same and wether foo should
magically deduce the name of the label form it's name etc.. etc..

-- 
      -----==-                                             |
      ----==-- _                                           |
      ---==---(_)__  __ ____  __       Marc Lehmann      +--
      --==---/ / _ \/ // /\ \/ /       [EMAIL PROTECTED]      |e|
      -=====/_/_//_/\_,_/ /_/\_\       XX11-RIPE         --+
    The choice of a GNU generation                       |
                                                         |