Hello community, here is the log from the commit of package swig for openSUSE:Factory checked in at Mon May 23 11:56:49 CEST 2011.
-------- --- swig/swig.changes 2011-05-02 18:01:34.000000000 +0200 +++ /mounts/work_src_done/STABLE/swig/swig.changes 2011-05-19 21:51:43.000000000 +0200 @@ -1,0 +2,11 @@ +Thu May 19 19:50:42 UTC 2011 - [email protected] + +- Drop adapt-perl512.diff and replace it with swig-2.0.3-perl512.patch + which is applied upstream. + +------------------------------------------------------------------- +Thu May 19 08:47:42 UTC 2011 - [email protected] + +- Add swig-2.0.3-perl514.patch: fix test failures with Perl 5.14 + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- adapt-perl512.diff New: ---- swig-2.0.3-perl512.patch swig-2.0.3-perl514.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ swig.spec ++++++ --- /var/tmp/diff_new_pack.X1tfN3/_old 2011-05-23 11:51:28.000000000 +0200 +++ /var/tmp/diff_new_pack.X1tfN3/_new 2011-05-23 11:51:28.000000000 +0200 @@ -48,19 +48,22 @@ %endif %endif Version: 2.0.3 -Release: 1 +Release: 5 License: GPLv3+ and BSD Summary: Simplified Wrapper and Interface Generator Url: http://www.swig.org Group: Development/Languages/C and C++ Source: swig-%{version}.tar.bz2 -Patch1: adapt-perl512.diff +# PATCH-FIX-UPSTREAM swig-2.0.3-perl512.patch [email protected] -- Upstream bug #3260265 +Patch1: swig-2.0.3-perl512.patch # PATCH-FIX-UPSTREAM swig-2.0.3-disable-broken-tests.patch [email protected] -- Disable broken tests Patch2: swig-2.0.3-disable-broken-tests.patch # PATCH-FIX-UPSTREAM swig-2.0.3-use-python-capsule-api.patch [email protected] -- Use Python capsule api Patch3: swig-2.0.3-use-python-capsule-api.patch # PATCH-FIX-UPSTREAM swig-2.0.3-support-python32.patch [email protected] -- Support Python 3.2 Patch4: swig-2.0.3-support-python32.patch +# PATCH-FIX-UPSTREAM swig-2.0.3-perl514.patch [email protected] -- Fix Perl 5.14 test failure +Patch5: swig-2.0.3-perl514.patch BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -119,6 +122,7 @@ %patch2 %patch3 -p1 %patch4 -p1 +%patch5 -p1 %build ./autogen.sh ++++++ swig-2.0.3-perl512.patch ++++++ --- trunk/Lib/perl5/perlrun.swg 2011/05/19 18:48:57 12690 +++ trunk/Lib/perl5/perlrun.swg 2011/05/19 19:31:39 12691 @@ -274,8 +274,14 @@ return SWIG_OK; } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */ if (!SvROK(sv)) { - *(ptr) = (void *) 0; - return SWIG_OK; + /* In Perl 5.12 and later, SVt_RV == SVt_IV, so sv could be a valid integer value. */ + if (SvIOK(sv)) { + return SWIG_ERROR; + } else { + /* NULL pointer (reference to undef). */ + *(ptr) = (void *) 0; + return SWIG_OK; + } } else { return SWIG_ERROR; } ++++++ swig-2.0.3-perl514.patch ++++++ --- swig-2.0.3/Examples/test-suite/perl5/li_std_string_runme.pl 2008-06-24 22:11:46.000000000 +0200 +++ swig-2.0.3/Examples/test-suite/perl5/li_std_string_runme.pl 2011-05-19 10:29:07.285003422 +0200 @@ -48,7 +48,7 @@ # Check throw exception specification eval { li_std_string::test_throw() }; -is($@, "test_throw message", "Test 5"); +like($@, qr/^test_throw message/, "Test 5"); { local $TODO = "why is the error not a Perl string?"; eval { li_std_string::test_const_reference_throw() }; is($@, "<some kind of string>", "Test 6"); --- swig-2.0.3/Examples/test-suite/perl5/default_args_runme.pl 2008-04-30 23:02:46.000000000 +0200 +++ swig-2.0.3/Examples/test-suite/perl5/default_args_runme.pl 2011-05-19 10:42:21.205003460 +0200 @@ -41,11 +41,11 @@ # exception specifications eval { default_args::exceptionspec() }; -is($@, "ciao", "exceptionspec 1"); +like($@, qr/^ciao/, "exceptionspec 1"); eval { default_args::exceptionspec(-1) }; -is($@, "ciao", "exceptionspec 2"); +like($@, qr/^ciao/, "exceptionspec 2"); eval { default_args::exceptionspec(100) }; -is($@, '100', "exceptionspec 3"); +like($@, qr/^100/, "exceptionspec 3"); my $ex = new default_args::Except($false); @@ -54,13 +54,13 @@ # a zero was thrown, an exception occured, but $@ is false is($hit, 0, "exspec 1"); eval { $ex->exspec(-1) }; -is($@, "ciao", "exspec 2"); +like($@, qr/^ciao/, "exspec 2"); eval { $ex->exspec(100) }; -is($@, 100, "exspec 3"); +like($@, qr/^100/, "exspec 3"); eval { $ex = default_args::Except->new($true) }; -is($@, -1, "Except constructor 1"); +like($@, qr/^-1/, "Except constructor 1"); eval { $ex = default_args::Except->new($true, -2) }; -is($@, -2, "Except constructor 2"); +like($@, qr/^-2/, "Except constructor 2"); #Default parameters in static class methods is(default_args::Statics::staticmethod(), 60, "staticmethod 1"); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
