diff options
author | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2010-10-13 19:51:17 +0000 |
---|---|---|
committer | Per Øyvind Karlsen <peroyvind@mandriva.org> | 2010-10-13 19:51:17 +0000 |
commit | dc98f405ef2e88ff545964e1bf95aee1c0bbedeb (patch) | |
tree | 08983e8a89fcc0dcdc6f06b1a0761d06cd7c2ccc | |
parent | e67e1dbad30dadf14effc3ae6e83c73504d23f17 (diff) | |
download | perl-URPM-dc98f405ef2e88ff545964e1bf95aee1c0bbedeb.tar perl-URPM-dc98f405ef2e88ff545964e1bf95aee1c0bbedeb.tar.gz perl-URPM-dc98f405ef2e88ff545964e1bf95aee1c0bbedeb.tar.bz2 perl-URPM-dc98f405ef2e88ff545964e1bf95aee1c0bbedeb.tar.xz perl-URPM-dc98f405ef2e88ff545964e1bf95aee1c0bbedeb.zip |
move some variables under INIT:
-rw-r--r-- | URPM.xs | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -1605,9 +1605,9 @@ Pkg_DESTROY(pkg) void Pkg_name(pkg) URPM::Package pkg - PPCODE: + INIT: char *name; - + PPCODE: if(get_fullname_parts(pkg, &name, NULL, NULL, NULL, NULL, NULL, NULL, NULL)) croak("invalid fullname"); XPUSHs(sv_2mortal(newSVpv(name, 0))); @@ -1616,9 +1616,9 @@ Pkg_name(pkg) void Pkg_version(pkg) URPM::Package pkg - PPCODE: + INIT: char *version; - + PPCODE: if(get_fullname_parts(pkg, NULL, NULL, &version, NULL, NULL, NULL, NULL, NULL)) croak("invalid fullname"); XPUSHs(sv_2mortal(newSVpv(version, 0))); @@ -1627,9 +1627,9 @@ Pkg_version(pkg) void Pkg_release(pkg) URPM::Package pkg - PPCODE: + INIT: char *release; - + PPCODE: if(get_fullname_parts(pkg, NULL, NULL, NULL, &release, NULL, NULL, NULL, NULL)) croak("invalid fullname"); XPUSHs(sv_2mortal(newSVpv(release, 0))); @@ -1638,8 +1638,9 @@ Pkg_release(pkg) void Pkg_arch(pkg) URPM::Package pkg - PPCODE: + INIT: char *arch; + PPCODE: get_fullname_parts(pkg, NULL, NULL, NULL, NULL, NULL, NULL, &arch, NULL); XPUSHs(sv_2mortal(newSVpv(arch, 0))); |