set pool architecture

diff --git a/examples/perl/example.pl b/examples/perl/example.pl
index fae0d2c4c9d49fa793bcd54a66ad97470de65df4..8911cf83f922adc8da00b75fac70af0ef66145e1 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