From f35a729e6d21461cbcb6f5ddb45c38778e271348 Mon Sep 17 00:00:00 2001 From: tv Date: Wed, 13 Jun 2012 18:43:02 +0000 Subject: simplify using mPUSHs() git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@203 971eb68f-4bfb-0310-8326-d2484c010a4c --- RPM4/src/RPM4.xs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index d3c0b96..3cb808c 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -1143,13 +1143,13 @@ Header_tag(h, sv_tag) rpmtdInit(&val); for (i = 0; i < n; i++) { - PUSHs(sv_2mortal(newSVpv(rpmtdNextString(&val), 0))); + mPUSHs(newSVpv(rpmtdNextString(&val), 0)); } } break; case RPM_STRING_TYPE: { char *name = (char *) rpmtdGetString(&val); - PUSHs(sv_2mortal(newSVpv(name, 0))); + mPUSHs(newSVpv(name, 0)); }; break; case RPM_CHAR_TYPE: @@ -1164,13 +1164,13 @@ Header_tag(h, sv_tag) for (i = 0; i < n; i++) { rpmtdNext(&val); - PUSHs(sv_2mortal(newSViv(rpmtdGetNumber(&val)))); + mPUSHs(newSViv(rpmtdGetNumber(&val))); } } break; case RPM_BIN_TYPE: /* XXX HACK ALERT: element field abused as no. bytes of binary data. */ - PUSHs(sv_2mortal(newSVpv((char *)val.data, val.count))); + mPUSHs(newSVpv((char *)val.data, val.count)); break; default: croak("unknown rpm tag type %d", type); @@ -1244,14 +1244,14 @@ Header_fullname(h) } } else if (gimme == G_ARRAY) { EXTEND(SP, 4); - PUSHs(sv_2mortal(newSVpv(name, 0))); - PUSHs(sv_2mortal(newSVpv(version, 0))); - PUSHs(sv_2mortal(newSVpv(release, 0))); + mPUSHs(newSVpv(name, 0)); + mPUSHs(newSVpv(version, 0)); + mPUSHs(newSVpv(release, 0)); if (ix != 1) { if (!headerIsEntry(h, RPMTAG_SOURCERPM)) { - PUSHs(sv_2mortal(newSVpv("src", 0))); + mPUSHs(newSVpv("src", 0)); } else { - PUSHs(sv_2mortal(newSVpv(arch, 0))); + mPUSHs(newSVpv(arch, 0)); } } } -- cgit v1.2.1