From 1534d0ee96464985ee949991b719d70a7424887a Mon Sep 17 00:00:00 2001
From: Klaus Kaempf <kkaempf@suse.de>
Date: Mon, 7 Jan 2008 16:36:07 +0000
Subject: [PATCH] set pool architecture

---
 examples/perl/example.pl | 1 +
 1 file changed, 1 insertion(+)

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
-- 
2.7.4