[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.322 by root, Sun Oct 11 18:18:04 2009 UTC vs.
Revision 1.323 by root, Sun Oct 11 23:51:41 2009 UTC

   CALL_CALL ("cf::_log_backtrace", G_VOID);
   CALL_END;
 #endif
 }
+bool
-bool is_match_expr (const char *expr)
+is_match_expr (const char *expr)
 {
   return !strncmp (expr, "match ", sizeof ("match ") - 1);
 }
+bool
-bool match (const char *expr, object *ob, object *self, object *source, object *originator)
+match (const char *expr, object *ob, object *self, object *source, object *originator)
 {
-  bool matched;
+  if (!strncmp (expr, "match ", sizeof ("match ") - 1))
+    expr += sizeof ("match ") - 1;
   CALL_BEGIN (5);
   CALL_ARG (expr);
   CALL_ARG (ob);
   CALL_ARG (self);
   CALL_ARG (source);
   CALL_ARG (originator);
   CALL_CALL ("cf::match::match", G_SCALAR);
-  matched = count && SvTRUE (POPs);
+  bool matched = count && SvTRUE (POPs);
   CALL_END;
   return matched;
 }

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