diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-15 03:09:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-15 03:09:58 +0000 |
| commit | 1cfa4ec74d4933da0d98282eed6171cc7ac307b6 (patch) | |
| tree | 16e2d6216053294709570ec219063df3229545f4 /gv.c | |
| parent | 1e2878e610af032604518a9feca8663968d7369a (diff) | |
| download | perl-1cfa4ec74d4933da0d98282eed6171cc7ac307b6.tar.gz | |
check in all confperl changes as of change#1964 into cfgperl
p4raw-link: @1964 on //depot/confperl: 2d85315bb227e0962a693eaaadc3f40ca2fbf49b
p4raw-id: //depot/cfgperl@1971
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -122,9 +122,10 @@ gv_init(GV *gv, HV *stash, char *name, STRLEN len, int multi) CvSTASH(GvCV(gv)) = PL_curstash; #ifdef USE_THREADS CvOWNER(GvCV(gv)) = 0; - if (!CvMUTEXP(GvCV(gv))) + if (!CvMUTEXP(GvCV(gv))) { New(666, CvMUTEXP(GvCV(gv)), 1, perl_mutex); - MUTEX_INIT(CvMUTEXP(GvCV(gv))); + MUTEX_INIT(CvMUTEXP(GvCV(gv))); + } #endif /* USE_THREADS */ if (proto) { sv_setpv((SV*)GvCV(gv), proto); |