perl-5.8.7-bz172587.patch

   1 --- perl-5.8.7/pp_sort.c.bz172587       2005-04-08 05:31:47.000000000 -0400
   2 +++ perl-5.8.7/pp_sort.c        2005-11-07 12:57:07.000000000 -0500
   3 @@ -1510,6 +1510,7 @@
   4
   5      if (gimme != G_ARRAY) {
   6         SP = MARK;
   7 +       EXTEND(SP,1);
   8         RETPUSHUNDEF;
   9      }
  10
  11 --- perl-5.8.7/pp_hot.c.bz172587        2005-04-22 10:12:27.000000000 -0400
  12 +++ perl-5.8.7/pp_hot.c 2005-11-07 12:55:16.000000000 -0500
  13 @@ -639,12 +639,12 @@
  14         }
  15      }
  16      SP = ORIGMARK;
  17 -    PUSHs(&PL_sv_yes);
  18 +    XPUSHs(&PL_sv_yes);
  19      RETURN;
  20
  21    just_say_no:
  22      SP = ORIGMARK;
  23 -    PUSHs(&PL_sv_undef);
  24 +    XPUSHs(&PL_sv_undef);
  25      RETURN;
  26  }
  27
  28 --- perl-5.8.7/pp_sys.c.bz172587        2005-04-27 18:12:46.000000000 -0400
  29 +++ perl-5.8.7/pp_sys.c 2005-11-07 13:03:39.000000000 -0500
  30 @@ -429,13 +429,16 @@
  31      SV *tmpsv;
  32      char *tmps;
  33      STRLEN len;
  34 -    if (SP - MARK != 1) {
  35 +    if (SP - MARK > 1) {
  36         dTARGET;
  37         do_join(TARG, &PL_sv_no, MARK, SP);
  38         tmpsv = TARG;
  39         SP = MARK + 1;
  40 -    }
  41 -    else {
  42 +    }
  43 +    else if (SP == MARK ) {
  44 +       tmpsv = &PL_sv_no;
  45 +       EXTEND(SP, 1);
  46 +    } else {
  47         tmpsv = TOPs;
  48      }
  49      tmps = SvPV(tmpsv, len);
  50 @@ -3517,7 +3520,7 @@
  51      I32 value = (I32)apply(PL_op->op_type, MARK, SP);
  52
  53      SP = MARK;
  54 -    PUSHi(value);
  55 +    XPUSHi(value);
  56      RETURN;
  57  #else
  58      DIE(aTHX_ PL_no_func, "chown");
  59 @@ -4127,7 +4130,7 @@
  60             if (errno != EAGAIN) {
  61                 value = -1;
  62                 SP = ORIGMARK;
  63 -               PUSHi(value);
  64 +               XPUSHi(value);
  65                 if (did_pipes) {
  66                     PerlLIO_close(pp[0]);
  67                     PerlLIO_close(pp[1]);
  68 @@ -4176,7 +4179,7 @@
  69                     STATUS_CURRENT = -1;
  70                 }
  71             }
  72 -           PUSHi(STATUS_CURRENT);
  73 +           XPUSHi(STATUS_CURRENT);
  74             RETURN;
  75         }
  76         if (did_pipes) {
  77 @@ -4222,7 +4225,7 @@
  78      STATUS_NATIVE_SET(value);
  79      do_execfree();
  80      SP = ORIGMARK;
  81 -    PUSHi(result ? value : STATUS_CURRENT);
  82 +    XPUSHi(result ? value : STATUS_CURRENT);
  83  #endif /* !FORK or VMS */
  84      RETURN;
  85  }
  86 @@ -4275,7 +4278,7 @@
  87      }
  88
  89      SP = ORIGMARK;
  90 -    PUSHi(value);
  91 +    XPUSHi(value);
  92      RETURN;
  93  }
  94
  95 --- perl-5.8.7/pp.c.bz172587    2005-05-16 11:30:13.000000000 -0400
  96 +++ perl-5.8.7/pp.c     2005-11-07 12:56:32.000000000 -0500
  97 @@ -721,7 +721,7 @@
  98      while (MARK < SP)
  99         do_chop(TARG, *++MARK);
 100      SP = ORIGMARK;
 101 -    PUSHTARG;
 102 +    XPUSHTARG;
 103      RETURN;
 104  }
 105
 106 @@ -739,7 +739,7 @@
 107
 108      while (SP > MARK)
 109         count += do_chomp(POPs);
 110 -    PUSHi(count);
 111 +    XPUSHi(count);
 112      RETURN;
 113  }
 114