Here is my pending new rule -- just want a sanity check on my internals access. 
 I know
you have sometimes suggested it, and in this case it would be the cleanest 
method for me
to jump to a cfset only if it has been defined, rather than having to maintain 
a separate
hash.  Ultimately I am trying to optimize the default jump from what is 
currently a few
dozen rules and could grow to much more as I add more event source subrulesets.

type=Jump
ptype=PerlFunc
constset=no
pattern=sub { my $cfset = "windows_\L$WINDOWS{SourceName}"; if
(defined($main::cfset2cfile{$cfset})) { $WINDOWS{_jump_cfset} = $cfset; return 
\%WINDOWS }
return 0 }
cfset=$+{_jump_cfset}

Thanks,
Mark


------------------------------------------------------------------------------
_______________________________________________
Simple-evcorr-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/simple-evcorr-users

Reply via email to