From: Michael Schroeder <mls@suse.de>
Date: Tue, 29 Jul 2008 08:47:56 +0000 (+0000)
Subject: - fix typo
X-Git-Tag: BASE-SuSE-Code-12_1-Branch~308^2~291
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2c6790b14c41c150faecfe47caffe29d675aef02;p=thirdparty%2Flibsolv.git

- fix typo
- make perl code more perlish
---

diff --git a/README b/README
index 10aad1f4..8196396b 100644
--- a/README
+++ b/README
@@ -37,6 +37,6 @@ make
 To install ruby bindings:
 make install
 
-To createe a package
+To create a package
 make srcpackage
 see package/
diff --git a/examples/perl/example.pl b/examples/perl/example.pl
index 8911cf83..d969e569 100644
--- a/examples/perl/example.pl
+++ b/examples/perl/example.pl
@@ -9,34 +9,34 @@ use satsolverx;
 
 # Create Pool and Repository 
 my $pool = new satsolverx::Pool;
-$pool -> set_arch( 'i686' );
-my $repo = $pool -> create_repo('repo');
+$pool->set_arch( 'i686' );
+my $repo = $pool->create_repo('repo');
 
 # Add Solvable to Repository
-$repo -> add_solv ("tmp/primary");
+$repo->add_solv ("tmp/primary");
 # close(F) || die;
 
 # Create Solver
-my $solver = $pool -> create_solver();
+my $solver = $pool->create_solver();
 
 # Create dependencies to provides table
-$pool -> prepare();
+$pool->prepare();
 
 # Create Transactions
-my $job = $pool -> create_transaction();
+my $job = $pool->create_transaction();
 
 # Push jobs on Queue
-my $pat = $pool -> find( "pattern:default" ) || die;
-$job -> install( $pat );
+my $pat = $pool->find("pattern:default") || die;
+$job->install($pat);
 
-# $job -> install( "pattern:default" );
+# $job -> install("pattern:default");
 
 # Solve the jobs
-$solver -> solve ($job);
+$solver->solve ($job);
 
 # Print packages to install
-$a = $solver -> getInstallList();
-foreach my $c (@{$a}) {
-	print "$c\n";
+$a = $solver->getInstallList();
+for my $c (@$a) {
+    print "$c\n";
 }