From 3ffb7467c8d5c2d56e663e315ca0193256288fd8 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Mon, 2 Aug 2004 07:22:52 +0000
Subject: - backward compatibility with perl 5.6

---
 URPM.xs | 11 +++++------
 1 file 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));
-- 
cgit v1.2.1