ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf/match.pm
(Generate patch)

Comparing deliantra/server/lib/cf/match.pm (file contents):
Revision 1.26 by root, Fri Mar 26 01:04:44 2010 UTC vs.
Revision 1.27 by root, Sun Apr 11 02:20:53 2010 UTC

… …
725our %CACHE; 725our %CACHE;
726 726
727sub compile($$) { 727sub compile($$) {
728 my ($wantarray, $match) = @_; 728 my ($wantarray, $match) = @_;
729 my $expr = parse $wantarray, $match; 729 my $expr = parse $wantarray, $match;
730 warn "MATCH DEBUG $match,$wantarray => $expr\n";#d# 730# warn "MATCH DEBUG $match,$wantarray => $expr\n";#d#
731 $expr = eval " 731 $expr = eval "
732 package cf::match::exec; 732 package cf::match::exec;
733 sub { 733 sub {
734 my (\$object, \$self, \$source, \$originator) = \@_; 734 my (\$object, \$self, \$source, \$originator) = \@_;
735 $expr 735 $expr

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines