aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorOlivier Thauvin <nanardon@mandriva.org>2004-08-02 07:22:52 +0000
committerOlivier Thauvin <nanardon@mandriva.org>2004-08-02 07:22:52 +0000
commit3ffb7467c8d5c2d56e663e315ca0193256288fd8 (patch)
tree21e4a40bf97af38119230f2e24e0c2459422d816 /URPM.xs
parente7094f4529d70bea41731b7e1ac6d9efca5133de (diff)
downloadperl-URPM-3ffb7467c8d5c2d56e663e315ca0193256288fd8.tar
perl-URPM-3ffb7467c8d5c2d56e663e315ca0193256288fd8.tar.gz
perl-URPM-3ffb7467c8d5c2d56e663e315ca0193256288fd8.tar.bz2
perl-URPM-3ffb7467c8d5c2d56e663e315ca0193256288fd8.tar.xz
perl-URPM-3ffb7467c8d5c2d56e663e315ca0193256288fd8.zip
- backward compatibility with perl 5.6
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs11
1 files changed, 5 insertions, 6 deletions
diff --git a/URPM.xs b/URPM.xs
index 1f384d7..df4bcda 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2306,10 +2306,11 @@ Pkg_changelog_text(pkg)
void
Pkg_queryformat(pkg, fmt)
- URPM::Package pkg;
+ URPM::Package pkg
char *fmt
- PPCODE:
+ PREINIT:
char *s;
+ PPCODE:
if (pkg->h) {
s = headerSprintf(pkg->h, fmt,
rpmTagTable, rpmHeaderFormats, NULL);
@@ -4066,14 +4067,12 @@ Urpm_import_pubkey(...)
RETVAL
void
-Urpm_stream2header(pio)
- PerlIO *pio;
+Urpm_stream2header(fp)
+ FILE *fp
PREINIT:
- FILE *fp;
FD_t fd;
URPM__Package pkg;
PPCODE:
- if (!(fp = PerlIO_findFILE(pio))) croak("Can't get perlio");
if ((fd = fdDup(fileno(fp)))) {
pkg = (URPM__Package)malloc(sizeof(struct s_Package));
memset(pkg, 0, sizeof(struct s_Package));