diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2002-12-13 06:00:48 -0800 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-17 01:58:32 +0000 |
| commit | 8c4b3a79c68253730d09878656b5526d4d65ef85 (patch) | |
| tree | 715a6995239e7a71baee065eb9b921ef284f7779 /os2/os2.c | |
| parent | ae2efb68622a795e5d137b8fd8181b67e74a58b9 (diff) | |
| download | perl-8c4b3a79c68253730d09878656b5526d4d65ef85.tar.gz | |
Morphing to PM on OS/2
Message-ID: <20021213220048.GA2606@math.berkeley.edu>
p4raw-id: //depot/perl@18314
Diffstat (limited to 'os2/os2.c')
| -rw-r--r-- | os2/os2.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1429,11 +1429,10 @@ Perl_hab_GET() /* Needed if perl.h cannot be included */ HMQ Perl_Register_MQ(int serve) { + if (Perl_hmq_refcnt <= 0) { PPIB pib; PTIB tib; - if (Perl_hmq_refcnt > 0) - return Perl_hmq; Perl_hmq_refcnt = 0; /* Be extra safe */ DosGetInfoBlocks(&tib, &pib); Perl_os2_initial_mode = pib->pib_ultype; @@ -1451,6 +1450,7 @@ Perl_Register_MQ(int serve) _exit(188); /* Panic can try to create a window. */ Perl_croak_nocontext("Cannot create a message queue, or morph to a PM application"); } + } if (serve) { if ( Perl_hmq_servers <= 0 /* Safe to inform us on shutdown, */ && Perl_hmq_refcnt > 0 ) /* this was switched off before... */ |