[perl #43803] [PATCH] [CAGE] [TRIVIAL] fix a couple of warnings in languages/tcl

[via RT]

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


src/binary.c:328: warning: no previous prototype for 'binary_format_number'
src/binary.c:366: warning: no previous prototype for 'binary_format_string'

Mark

=== languages/tcl/src/binary.c
==================================================================
--- languages/tcl/src/binary.c	(revision 21409)
+++ languages/tcl/src/binary.c	(local)
@@ -322,7 +322,7 @@
     return binstr;
 }
 
-STRING *
+static STRING *
 binary_format_number(Interp *interp, char field, STRING *binstr, PMC *value,
                      char *format, int *formatpos, int formatlen)
 {
@@ -360,7 +360,7 @@
     return binstr;
 }
 
-STRING *
+static STRING *
 binary_format_string(Interp *interp, char field, STRING *binstr, PMC *value,
                      char *format, int *formatpos, int formatlen)
 {