X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mathoms.c;h=2acdb420b47987105f67beda70a11fbe23dff9eb;hb=682e4b71848152d6896e0c5f2ed3943038c0c77e;hp=bc355e98423855f685652f0ab535de6fc7bed313;hpb=c9f7ac20cc60b6edea0f8aa7d2d3184bb6978820;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mathoms.c b/mathoms.c
index bc355e9..2acdb42 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1,6 +1,6 @@
 /*    mathoms.c
  *
- *    Copyright (C) 2005, by Larry Wall and others
+ *    Copyright (C) 2005, 2006, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -14,6 +14,8 @@
  * 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,
@@ -506,7 +508,7 @@ AV *
 Perl_av_fake(pTHX_ register I32 size, register SV **strp)
 {
     register SV** ary;
-    register AV * const av = (AV*)NEWSV(9,0);
+    register AV * const av = (AV*)newSV(0);
 
     sv_upgrade((SV *)av, SVt_PVAV);
     Newx(ary,size+1,SV*);
@@ -577,6 +579,7 @@ Perl_do_exec(pTHX_ const char *cmd)
 void
 Perl_do_pipe(pTHX_ SV *sv, GV *rgv, GV *wgv)
 {
+    dVAR;
     register IO *rstio;
     register IO *wstio;
     int fd[2];
@@ -670,21 +673,25 @@ PP(pp_mapstart)
 /* These ops all have the same body as pp_null.  */
 PP(pp_scalar)
 {
+    dVAR;
     return NORMAL;
 }
 
 PP(pp_regcmaybe)
 {
+    dVAR;
     return NORMAL;
 }
 
 PP(pp_lineseq)
 {
+    dVAR;
     return NORMAL;
 }
 
 PP(pp_scope)
 {
+    dVAR;
     return NORMAL;
 }
 
@@ -981,6 +988,56 @@ PP(pp_msgrcv)
     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)
 {
@@ -1030,6 +1087,8 @@ Perl_sv_nounlocking(pTHX_ SV *sv)
     PERL_UNUSED_ARG(sv);
 }
 
+#endif /* NO_MATHOMS */
+
 /*
  * Local variables:
  * c-indentation-style: bsd