--- Perl-RPM-0.40/RPM/Header.xs.64bit-fixes	2002-05-10 03:37:08.000000000 -0400

+++ Perl-RPM-0.40/RPM/Header.xs	2003-02-14 11:50:40.000000000 -0500

@@ -318,7 +318,7 @@ RPM__Header rpmhdr_TIEHASH(pTHX_ char* c

     retvalp->storage = newHV();

     RETVAL = newHV();

-    t_magic = newSViv((unsigned)retvalp);

+    t_magic = newSViv(PTR2IV(retvalp));

     /* With the actual HV*, store the type-keys for the three cached values: */

     hv_store(retvalp->storage,

              "NAME_t", 7, newSViv(RPM_STRING_TYPE), FALSE);

--- Perl-RPM-0.40/RPM/Database.xs.64bit-fixes	2002-05-10 01:53:48.000000000 -0400

+++ Perl-RPM-0.40/RPM/Database.xs	2003-02-14 11:50:00.000000000 -0500

@@ -67,7 +67,7 @@ RPM__Database rpmdb_TIEHASH(pTHX_ char* 

     RETVAL = newHV();

     retvalp->storage = newHV();

-    t_magic = newSViv((unsigned)retvalp);

+    t_magic = newSViv(PTR2IV(retvalp));

     sv_magic((SV *)RETVAL, Nullsv, 'P', Nullch, 0);

     sv_magic((SV *)RETVAL, t_magic, '~', Nullch, 0);

@@ -153,7 +153,7 @@ SV* rpmdb_FETCH(pTHX_ RPM__Database self

     {

         hdr = headerLink(hdr);

         FETCHp = rpmhdr_TIEHASH(aTHX_ "RPM::Header",

-                                sv_2mortal(newSViv((unsigned)hdr)),

+                                sv_2mortal(newSViv(PTR2IV(hdr))),

                                 RPM_HEADER_FROM_REF | RPM_HEADER_READONLY);

         if (name == Null(const char *))

             name = SvPV(rpmhdr_FETCH(aTHX_ FETCHp,