- fix typo

- make perl code more perlish

diff --git a/README b/README
index 10aad1f4a8adce58a01199dc006223d40afe0bdf..8196396b8cf2ad276f94512546dfb0cd27599cbb 100644 (file)
--- 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 8911cf83f922adc8da00b75fac70af0ef66145e1..d969e5696b9c672a4292a10c32eeef1435100942 100644 (file)
--- 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";
 }