* hand to hand were of that sort."
*/
+#ifndef NO_MATHOMS
+
/*
* This file contains mathoms, various binary artifacts from previous
* versions of Perl. For binary or source compatibility reasons, though,
#define PERL_IN_MATHOMS_C
#include "perl.h"
+void Perl_mathoms(void) {}
+
/* ref() is now a macro using Perl_doref;
* this version provided for binary compatibility only.
*/
return pp_shmwrite();
}
+PP(pp_syswrite)
+{
+ return pp_send();
+}
+
+PP(pp_semop)
+{
+ return pp_shmwrite();
+}
+
+PP(pp_dor)
+{
+ return pp_defined();
+}
+
+PP(pp_andassign)
+{
+ return pp_and();
+}
+
+PP(pp_orassign)
+{
+ return pp_or();
+}
+
+PP(pp_dorassign)
+{
+ return pp_defined();
+}
+
+PP(pp_lcfirst)
+{
+ return pp_ucfirst();
+}
+
+PP(pp_slt)
+{
+ return pp_sle();
+}
+
+PP(pp_sgt)
+{
+ return pp_sle();
+}
+
+PP(pp_sge)
+{
+ return pp_sle();
+}
+
U8 *
Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
{
PERL_UNUSED_ARG(sv);
}
+#endif /* NO_MATHOMS */
+
/*
* Local variables:
* c-indentation-style: bsd