This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
HUF_get_trigger0 unused since at least d74d639b
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 20 Nov 2015 21:43:19 +0000 (16:43 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 21 Nov 2015 02:58:59 +0000 (21:58 -0500)
The 0b057af7 exposed this by static-ing it, so that compilers
started warning about the unused static function.

ext/Hash-Util-FieldHash/FieldHash.xs

index 46efec6..2fcb612 100644 (file)
@@ -178,15 +178,6 @@ HUF_ask_trigger(pTHX_ SV *ob_id) {
     return NULL;
 }
 
-/* get the trigger for an object, creating it if necessary */
-static SV *
-HUF_get_trigger0(pTHX_ SV *obj, SV *ob_id) {
-    SV* trigger;
-    if (!(trigger = HUF_ask_trigger(aTHX_ ob_id)))
-        trigger = HUF_new_trigger(aTHX_ obj, ob_id);
-    return trigger;
-}
-
 static SV *
 HUF_get_trigger(pTHX_ SV *obj, SV *ob_id) {
     SV* trigger = HUF_ask_trigger(aTHX_ ob_id);