Enable perlio mutexes under threads (by Jarkko)

[perl5.git] / genpacksizetables.pl

diff --git a/genpacksizetables.pl b/genpacksizetables.pl
index 5872e86..9dffc2c 100755 (executable)
--- a/genpacksizetables.pl
+++ b/genpacksizetables.pl
@@ -38,7 +38,7 @@ sub make_tables {
                       $unpredictable, $nocsum, $size, $condition);
     }
 
-    my $text = "const packprops_t packprops[512] = {\n";
+    my $text = "STATIC const packprops_t packprops[512] = {\n";
     foreach my $arrayname (qw(normal shrieking)) {
         my $array = $arrays{$arrayname} ||
             die "No defined entries in $arrayname";