Upgrade to Pod-Simple-3.04

[p5sagit/p5-mst-13.2.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index c0fc740..d3713f5 100644 (file)
--- 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.
@@ -29,7 +29,7 @@
 #define PERL_IN_MATHOMS_C
 #include "perl.h"
 
-void Perl_mathoms() {}
+void Perl_mathoms(void) {}
 
 /* ref() is now a macro using Perl_doref;
  * this version provided for binary compatibility only.
@@ -510,7 +510,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*);
@@ -581,6 +581,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];
@@ -674,21 +675,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;
 }
 
@@ -1020,6 +1025,21 @@ 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)
 {