set pool architecture

[platform/upstream/libsolv.git] / examples / perl / example.pl

diff --git a/examples/perl/example.pl b/examples/perl/example.pl
index fae0d2c..8911cf8 100644 (file)
--- 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