]>
Commit | Line | Data |
---|---|---|
21155a62 AM |
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 |