[perl #55358] [PATCH] static get_op not defined in several files

[via RT]

# New Ticket Created by  NotFound 
# Please include the string:  [perl #55358]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=55358 >


The static function get_op is declared but not defined in several
files, because the declaration is unconditionally generated in
Ops2c/Utils.pm

This patch fixes the issue, allowing a cleaner build when the warning
-Wunused-function is used.

-- 
Salu2

Index: lib/Parrot/Ops2c/Utils.pm
===================================================================
--- lib/Parrot/Ops2c/Utils.pm	(revisión: 28110)
+++ lib/Parrot/Ops2c/Utils.pm	(copia de trabajo)
@@ -560,10 +560,14 @@
 
 $self->{defines}
 
+END_C
+
+    if ( $self->{suffix} eq '' && !$self->{flag}->{dynamic} ) {
+        print $fh <<END_C_2;
 static int get_op(const char * name, int full);
 
-END_C
-
+END_C_2
+    }
     my $text = $self->{ops}->preamble( $self->{trans} );
     $text =~ s/\bops_addr\b/$self->{bs}ops_addr/g;
     print $fh $text;