diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-22 00:23:50 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-22 00:23:50 +0000 |
| commit | 5f7a129c6c1d3a7b2782272260b98f4a1de992a6 (patch) | |
| tree | c2c0da47407dbb514d9a65cae7bab704af9158a3 /RPM4/src/RPM4.xs | |
| parent | 4aa27656b701804d58d4b39245a6aa61e4fbd40d (diff) | |
| download | perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar.gz perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar.bz2 perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.tar.xz perl-RPM4-5f7a129c6c1d3a7b2782272260b98f4a1de992a6.zip | |
- fix #7: installsrpms return one value in scalar context
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@140 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/src/RPM4.xs')
| -rw-r--r-- | RPM4/src/RPM4.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index bbbe741..bc430c2 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -475,12 +475,14 @@ void _installsrpms(rpmts ts, char * filename) { const char * specfile = NULL; const char * cookies = NULL; dSP; + I32 gimme = GIMME_V; if (rpmInstallSource( ts, filename, &specfile, &cookies) == 0) { XPUSHs(sv_2mortal(newSVpv(specfile, 0))); + if (gimme == G_ARRAY) XPUSHs(sv_2mortal(newSVpv(cookies, 0))); } PUTBACK; |