diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2004-08-02 07:22:52 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2004-08-02 07:22:52 +0000 |
| commit | 3ffb7467c8d5c2d56e663e315ca0193256288fd8 (patch) | |
| tree | 21e4a40bf97af38119230f2e24e0c2459422d816 /URPM.xs | |
| parent | e7094f4529d70bea41731b7e1ac6d9efca5133de (diff) | |
| download | perl-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.xs | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -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)); |