Something

diff -p -up RPM4-0.23/src/RPM4.xs.pix RPM4-0.23/src/RPM4.xs
--- RPM4-0.23/src/RPM4.xs.pix	2007-07-22 02:23:52.000000000 +0200
+++ RPM4-0.23/src/RPM4.xs	2007-12-14 11:27:22.000000000 +0100
@@ -446,7 +446,15 @@ void _newspec(rpmts ts, char * filename,
 	verify = SvIV(svverify);
     
     if (filename) {
-        if (!parseSpec(ts, filename, rootdir, 0, passphrase, cookies, anyarch, force, verify))
+        if (!parseSpec(ts, filename, rootdir
+#ifndef RPM_448
+		       , NULL
+#endif
+		       ,0, passphrase, cookies, anyarch, force
+#ifdef RPM_448
+		       , verify
+#endif
+		       ))
             spec = rpmtsSetSpec(ts, NULL);
 #ifdef HHACK
     } else {
diff -p -up RPM4-0.23/src/Makefile.PL.pix RPM4-0.23/src/Makefile.PL
--- RPM4-0.23/src/Makefile.PL.pix	2007-03-01 00:56:26.000000000 +0100
+++ RPM4-0.23/src/Makefile.PL	2007-12-14 11:29:48.000000000 +0100
@@ -43,7 +44,7 @@ foreach (qw(
     $v = $_;
     $v =~ s/\./_/g;
     print $FH "#define RPM$v\n";
-    $rpmv eq $_ and last;
+    $rpmv =~ /^\Q$_/ and last;
 }
 print $FH "\n#endif\n";
 close($FH);