Author: kkaempf Date: Fri Jan 4 15:52:45 2008 New Revision: 8203 URL: http://svn.opensuse.org/viewcvs/zypp?rev=8203&view=rev Log: remove unneeded arg from getInstallList() (perl) Modified: trunk/sat-solver/bindings/satsolver.i Modified: trunk/sat-solver/bindings/satsolver.i URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/satsolver.i?rev=8203&r1=8202&r2=8203&view=diff ============================================================================== --- trunk/sat-solver/bindings/satsolver.i (original) +++ trunk/sat-solver/bindings/satsolver.i Fri Jan 4 15:52:45 2008 @@ -560,7 +560,7 @@ * Solver management */ - Solver* create_solver( Repo *installed ) + Solver* create_solver( Repo *installed = NULL ) { return solver_create( $self, installed ); } } @@ -1186,7 +1186,7 @@ %extend Solver { - Solver( Pool *pool, Repo *installed ) + Solver( Pool *pool, Repo *installed = NULL ) { return solver_create( pool, installed ); } ~Solver() { solver_free( $self ); } @@ -1376,7 +1376,7 @@ #if defined(SWIGPERL) - SV* getInstallList (Pool *pool) + SV* getInstallList() { int b = 0; AV *myav = newAV(); @@ -1394,8 +1394,8 @@ continue; // ignore system solvable } s = self->pool->solvables + p; - //printf ("SOLVER NAME: %d %s\n",p,id2str(pool, s->name)); - myel = (char*)id2str(pool, s->name); + //printf ("SOLVER NAME: %d %s\n",p,id2str(self->pool, s->name)); + myel = (char*)id2str(self->pool, s->name); mysv = sv_newmortal(); mysv = perl_get_sv (myel,TRUE); sv_setpv(mysv, myel); -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org