In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/45c5a37a8d6429b094f04d8fe7b3ea28dc967644?hp=eaab56493bda8d2c9e499f01433ea2da9b29f6e5>
- Log ----------------------------------------------------------------- commit 45c5a37a8d6429b094f04d8fe7b3ea28dc967644 Author: Yves Orton <[email protected]> Date: Thu Dec 25 02:49:17 2014 +0100 fixups to make the porting tests happy M ext/XS-APItest/APItest.pm M ext/XS-APItest/APItest.xs M ext/XS-APItest/t/weaken.t commit c19d6f7c80d1740ed11a7bb9fc077fd82770cf0d Author: Yves Orton <[email protected]> Date: Thu Dec 25 02:26:51 2014 +0100 sort manifest Why do we test for something that can be trivially accomplished by a make manisort? This is just makework with no value. M MANIFEST ----------------------------------------------------------------------- Summary of changes: MANIFEST | 2 +- ext/XS-APItest/APItest.pm | 4 ++-- ext/XS-APItest/APItest.xs | 2 +- ext/XS-APItest/t/weaken.t | 6 +++--- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/MANIFEST b/MANIFEST index ee688e6..798e263 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4002,8 +4002,8 @@ ext/XS-APItest/t/temp_lv_sub.t XS::APItest: tests for lvalue subs returning temp ext/XS-APItest/t/underscore_length.t Test find_rundefsv() ext/XS-APItest/t/utf16_to_utf8.t Test behaviour of utf16_to_utf8{,reversed} ext/XS-APItest/t/utf8.t Tests for code in utf8.c -ext/XS-APItest/t/whichsig.t XS::APItest: tests for whichsig() and variants ext/XS-APItest/t/weaken.t XS::APItest: tests for sv_rvweaken() and sv_get_backrefs() +ext/XS-APItest/t/whichsig.t XS::APItest: tests for whichsig() and variants ext/XS-APItest/t/xs_special_subs_require.t for require too ext/XS-APItest/t/xs_special_subs.t Test that XS BEGIN/CHECK/INIT/END work ext/XS-APItest/t/xsub_h.t Tests for XSUB.h diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm index 71d27ff..a759492 100644 --- a/ext/XS-APItest/APItest.pm +++ b/ext/XS-APItest/APItest.pm @@ -1,11 +1,11 @@ package XS::APItest; -{ use 5.011001; } +{ use 5.011001; } # 5.11 is a long long time ago... What gives with this? use strict; use warnings; use Carp; -our $VERSION = '0.69'; +our $VERSION = '0.70'; require XSLoader; diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 7910635..2b7b349 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -5028,7 +5028,7 @@ test_Gconvert(SV * number, SV * num_digits) MODULE = XS::APItest PACKAGE = XS::APItest::Backrefs void -weaken(SV *sv) +apitest_weaken(SV *sv) PROTOTYPE: $ CODE: sv_rvweaken(sv); diff --git a/ext/XS-APItest/t/weaken.t b/ext/XS-APItest/t/weaken.t index 5396e52..82659a5 100644 --- a/ext/XS-APItest/t/weaken.t +++ b/ext/XS-APItest/t/weaken.t @@ -36,9 +36,9 @@ my $nrml_hash_ref= { this => is => a => 'hash' }; # we could probably do other tests here, such as # verify the refcount of the referents, but maybe # another day. -weaken(my $weak_scalar_ref= $scalar_ref); -weaken(my $weak_array_ref= $array_ref); -weaken(my $weak_hash_ref= $hash_ref); +apitest_weaken(my $weak_scalar_ref= $scalar_ref); +apitest_weaken(my $weak_array_ref= $array_ref); +apitest_weaken(my $weak_hash_ref= $hash_ref); ok(has_backrefs($scalar_ref), "scalar with backrefs"); ok(has_backrefs($array_ref), "array with backrefs"); -- Perl5 Master Repository
