Author: kkaempf Date: Wed Nov 12 15:41:38 2008 New Revision: 11662 URL: http://svn.opensuse.org/viewcvs/zypp?rev=11662&view=rev Log: define solvable equality for Perl: same pool, same id Modified: trunk/sat-solver/bindings/solvable.i Modified: trunk/sat-solver/bindings/solvable.i URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/solvable.i?rev=11662&r1=11661&r2=11662&view=diff ============================================================================== --- trunk/sat-solver/bindings/solvable.i (original) +++ trunk/sat-solver/bindings/solvable.i Wed Nov 12 15:41:38 2008 @@ -55,6 +55,10 @@ %typemap(out) int equal "$result = ($1 != 0) ? Qtrue : Qfalse;"; #endif +#if defined(SWIGPERL) + int __eq__( XSolvable *xs ) + { return xsolvable_equal( $self, xs); } +#endif int equal( XSolvable *xs ) { return xsolvable_equal( $self, xs); } -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org