- fix regression in 2.00: we can't cache the platform, cache the result of

  is_arch_compat instead

ie:
- revert commits on URPM.xs which introduced the cache on platform
- rename is_arch_compat to is_arch_compat__XS in URPM.xs
- create URPM::Package::is_arch_compat in URPM.pm

1 files changed, 9 insertions, 0 deletions

diff --git a/URPM.pm b/URPM.pm
index fb5c329..bb50243 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -212,6 +212,15 @@ upgrade:	  ${\($pkg->flag_upgrade)}
 EODUMP
 }
 
+my %arch_cache;
+sub is_arch_compat {
+    my ($pkg) = @_;
+    my $arch = $pkg->arch;
+    exists $arch_cache{$arch} and return $arch_cache{$arch};
+
+    $arch_cache{$arch} = is_arch_compat__XS($pkg);
+}
+
 package URPM::Transaction;
 our @ISA = qw(); # help perl_checker