This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow pad_findmy’s retval to be ignored
authorFather Chrysostomos <sprout@cpan.org>
Wed, 1 Feb 2012 21:00:43 +0000 (13:00 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 1 Feb 2012 21:44:28 +0000 (13:44 -0800)
embed.fnc
proto.h

index 986c893..2f60d47 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2250,7 +2250,7 @@ Apd       |PADOFFSET|pad_add_anon |NN CV* func|I32 optype
 #if defined(PERL_IN_PAD_C)
 sd     |void   |pad_check_dup  |NN SV *name|U32 flags|NULLOK const HV *ourstash
 #endif
-ApdR   |PADOFFSET|pad_findmy_pvn|NN const char* namepv|STRLEN namelen|U32 flags
+Apd    |PADOFFSET|pad_findmy_pvn|NN const char* namepv|STRLEN namelen|U32 flags
 ApdR   |PADOFFSET|pad_findmy_pv|NN const char* name|U32 flags
 ApdR   |PADOFFSET|pad_findmy_sv|NN SV* name|U32 flags
 ApdD   |PADOFFSET|find_rundefsvoffset  |
diff --git a/proto.h b/proto.h
index 528f0a7..750dab5 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2962,7 +2962,6 @@ PERL_CALLCONV PADOFFSET   Perl_pad_findmy_pv(pTHX_ const char* name, U32 flags)
        assert(name)
 
 PERL_CALLCONV PADOFFSET        Perl_pad_findmy_pvn(pTHX_ const char* namepv, STRLEN namelen, U32 flags)
-                       __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_PAD_FINDMY_PVN        \
        assert(namepv)