From: Klaus Kaempf <kkaempf@suse.de>
Date: Mon, 7 Jan 2008 16:36:07 +0000 (+0000)
Subject: set pool architecture
X-Git-Tag: BASE-SuSE-Code-12_1-Branch~1028
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1534d0ee96464985ee949991b719d70a7424887a;p=platform%2Fupstream%2Flibsolv.git

set pool architecture
---

diff --git a/examples/perl/example.pl b/examples/perl/example.pl
index fae0d2c..8911cf8 100644
--- a/examples/perl/example.pl
+++ b/examples/perl/example.pl
@@ -9,6 +9,7 @@ use satsolverx;
 
 # Create Pool and Repository 
 my $pool = new satsolverx::Pool;
+$pool -> set_arch( 'i686' );
 my $repo = $pool -> create_repo('repo');
 
 # Add Solvable to Repository