diff options
| author | Leon Timmermans <fawaka@gmail.com> | 2022-08-02 18:11:04 +0200 |
|---|---|---|
| committer | Leon Timmermans <fawaka@gmail.com> | 2022-11-01 10:39:16 +0100 |
| commit | a8bbbd537939b4b0430e656f744c6d0018e76717 (patch) | |
| tree | f60d6edc5c967de089da3621bdc4f0025afb4237 /ext/XS-APItest | |
| parent | 3e510e80666d4b9d025e518923ae7df8b21f290e (diff) | |
| download | perl-a8bbbd537939b4b0430e656f744c6d0018e76717.tar.gz | |
Simplify magic test
Diffstat (limited to 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/APItest.pm | 2 | ||||
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 8 | ||||
| -rw-r--r-- | ext/XS-APItest/t/magic.t | 2 |
3 files changed, 6 insertions, 6 deletions
diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm index 3e34682c40..0939363cfb 100644 --- a/ext/XS-APItest/APItest.pm +++ b/ext/XS-APItest/APItest.pm @@ -4,7 +4,7 @@ use strict; use warnings; use Carp; -our $VERSION = '1.26'; +our $VERSION = '1.27'; require XSLoader; diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 44432d0847..cd194c448b 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -4711,14 +4711,14 @@ sv_magic_foo(SV *sv, SV *thingy) ALIAS: sv_magic_bar = 1 CODE: - sv_magicext(SvRV(sv), NULL, PERL_MAGIC_ext, ix ? &vtbl_bar : &vtbl_foo, (const char *)thingy, 0); + sv_magicext(sv, NULL, PERL_MAGIC_ext, ix ? &vtbl_bar : &vtbl_foo, (const char *)thingy, 0); SV * mg_find_foo(SV *sv) ALIAS: mg_find_bar = 1 CODE: - MAGIC *mg = mg_findext(SvRV(sv), PERL_MAGIC_ext, ix ? &vtbl_bar : &vtbl_foo); + MAGIC *mg = mg_findext(sv, PERL_MAGIC_ext, ix ? &vtbl_bar : &vtbl_foo); RETVAL = mg ? SvREFCNT_inc((SV *)mg->mg_ptr) : &PL_sv_undef; OUTPUT: RETVAL @@ -4728,12 +4728,12 @@ sv_unmagic_foo(SV *sv) ALIAS: sv_unmagic_bar = 1 CODE: - sv_unmagicext(SvRV(sv), PERL_MAGIC_ext, ix ? &vtbl_bar : &vtbl_foo); + sv_unmagicext(sv, PERL_MAGIC_ext, ix ? &vtbl_bar : &vtbl_foo); void sv_magic(SV *sv, SV *thingy) CODE: - sv_magic(SvRV(sv), NULL, PERL_MAGIC_ext, (const char *)thingy, 0); + sv_magic(sv, NULL, PERL_MAGIC_ext, (const char *)thingy, 0); UV test_get_vtbl() diff --git a/ext/XS-APItest/t/magic.t b/ext/XS-APItest/t/magic.t index 46feb7ab07..e7c6d2ce24 100644 --- a/ext/XS-APItest/t/magic.t +++ b/ext/XS-APItest/t/magic.t @@ -4,7 +4,7 @@ use Test::More; use XS::APItest; -my $sv = bless {}, 'Moo'; +my $sv = 'Moo'; my $foo = 'affe'; my $bar = 'tiger'; |