[perl.git] branch blead, updated. v5.21.1-116-ge45636e

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e45636ee08758dcc84897b46fb23cb42e606e5a8?hp=edd0583e505bf8be15700db63562c98bdf8be40c>

- Log -----------------------------------------------------------------
commit e45636ee08758dcc84897b46fb23cb42e606e5a8
Author: Daniel Dragan <bul...@hotmail.com>
Date:   Sun Jul 6 02:59:02 2014 -0400

    static misc things in /dist/threads/threads.xs
    
    there is no reason for these functions to be exported on a linux build,
    since they aren't exported on Win32, also consting ithread_vtbl allows
    more memory to be shared between perl procs
-----------------------------------------------------------------------

Summary of changes:
 dist/threads/lib/threads.pm |  2 +-
 dist/threads/threads.xs     | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm
index c395d7b..ff41a20 100644
--- a/dist/threads/lib/threads.pm
+++ b/dist/threads/lib/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.94';
+our $VERSION = '1.95';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
diff --git a/dist/threads/threads.xs b/dist/threads/threads.xs
index 6175ba7..5b44a38 100644
--- a/dist/threads/threads.xs
+++ b/dist/threads/threads.xs
@@ -346,7 +346,7 @@ S_exit_warning(pTHX)
 /* Called from perl_destruct() in each thread.  If it's the main thread,
  * stop it from freeing everything if there are other threads still running.
  */
-int
+STATIC int
 Perl_ithread_hook(pTHX)
 {
     dMY_POOL;
@@ -356,7 +356,7 @@ Perl_ithread_hook(pTHX)
 
 /* MAGIC (in mg.h sense) hooks */
 
-int
+STATIC int
 ithread_mg_get(pTHX_ SV *sv, MAGIC *mg)
 {
     ithread *thread = (ithread *)mg->mg_ptr;
@@ -365,7 +365,7 @@ ithread_mg_get(pTHX_ SV *sv, MAGIC *mg)
     return (0);
 }
 
-int
+STATIC int
 ithread_mg_free(pTHX_ SV *sv, MAGIC *mg)
 {
     ithread *thread = (ithread *)mg->mg_ptr;
@@ -375,7 +375,7 @@ ithread_mg_free(pTHX_ SV *sv, MAGIC *mg)
     return (0);
 }
 
-int
+STATIC int
 ithread_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *param)
 {
     PERL_UNUSED_ARG(param);
@@ -383,7 +383,7 @@ ithread_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *param)
     return (0);
 }
 
-MGVTBL ithread_vtbl = {
+STATIC const MGVTBL ithread_vtbl = {
     ithread_mg_get,     /* get */
     0,                  /* set */
     0,                  /* len */

--
Perl5 Master Repository