diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-12-14 11:07:14 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-12-14 11:07:14 +0000 |
| commit | 7a2e434df978de6e43407283dc53b5e06801ab33 (patch) | |
| tree | 77a12230645d5315162df679282654f50a1a4d36 | |
| parent | 90318499758266a62d75167169b2f8c2fac0a737 (diff) | |
| download | perl-RPM4-7a2e434df978de6e43407283dc53b5e06801ab33.tar perl-RPM4-7a2e434df978de6e43407283dc53b5e06801ab33.tar.gz perl-RPM4-7a2e434df978de6e43407283dc53b5e06801ab33.tar.bz2 perl-RPM4-7a2e434df978de6e43407283dc53b5e06801ab33.tar.xz perl-RPM4-7a2e434df978de6e43407283dc53b5e06801ab33.zip | |
- fix compil against rpm.org 4.4.2.2
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@144 971eb68f-4bfb-0310-8326-d2484c010a4c
| -rw-r--r-- | RPM4/src/Makefile.PL | 2 | ||||
| -rw-r--r-- | RPM4/src/RPM4.xs | 10 |
2 files changed, 10 insertions, 2 deletions
diff --git a/RPM4/src/Makefile.PL b/RPM4/src/Makefile.PL index 595fea8..1e2c621 100644 --- a/RPM4/src/Makefile.PL +++ b/RPM4/src/Makefile.PL @@ -43,7 +43,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); diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index bc430c2..59dc370 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -446,7 +446,15 @@ void _newspec(rpmts ts, char * filename, SV * svpassphrase, SV * svrootdir, SV * verify = SvIV(svverify); if (filename) { - if (!parseSpec(ts, filename, rootdir, 0, passphrase, cookies, anyarch, force, verify)) + if (!parseSpec(ts, filename, rootdir +#ifndef RPM_4_4_8 + , 0 +#endif + ,0 , passphrase, cookies, anyarch, force +#ifdef RPM_4_4_8 + , verify +#endif + )) spec = rpmtsSetSpec(ts, NULL); #ifdef HHACK } else { |