--- deliantra/server/server/cfperl.xs	2007/08/24 00:26:10	1.243
+++ deliantra/server/server/cfperl.xs	2007/08/25 22:19:26	1.244
@@ -1045,6 +1045,25 @@
   return can;
 }
 
+player *
+player::find (const char *name)
+{
+  CALL_BEGIN (1);
+  CALL_ARG (name);
+  CALL_CALL ("cf::player::find", G_SCALAR);
+
+  player *retval;
+
+  if (count)
+    sv_to (POPs, retval);
+  else
+    retval = 0;
+
+  CALL_END;
+
+  return retval;
+}
+
 maptile *
 maptile::find_sync (const char *path, maptile *origin)
 {