/* -*-c-*-
*
- * $Id: algstuff.c,v 1.2 2004/04/08 01:36:21 mdw Exp $
+ * $Id$
*
* Support stuff for algorithms
*
dSP;
for (; rt->name; rt++)
XPUSHs(sv_2mortal(newSVpvn((char *)rt->name, strlen(rt->name))));
+ PUTBACK;
}
/*----- That's all, folks -------------------------------------------------*/