From 2a5c554cf9e2bc39ee9259286282215eb38250b5 Mon Sep 17 00:00:00 2001
From: Hanno Hecker <vetinari@ankh-morp.org>
Date: Mon, 3 Sep 2007 16:28:34 +0000
Subject: [PATCH] prefork: support two or more parallel running instances (on
 different ports).   * no 4 or 5 digit long port numbers where the first four
 digits are the     same are supported (e.g. 20025, 20026, 2002), see
 IPC::Shareable.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@787 958fd67b-6ff1-0310-b445-bb7760255be9
---
 qpsmtpd-prefork | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/qpsmtpd-prefork b/qpsmtpd-prefork
index 622c850..d947190 100755
--- a/qpsmtpd-prefork
+++ b/qpsmtpd-prefork
@@ -191,7 +191,7 @@ sub run {
     }
 
     # setup shared memory
-    $chld_shmem = shmem("qpsmtpd", 1);
+    $chld_shmem = shmem($d_port."qpsmtpd", 1);
     untie $chld_shmem;
 
     # Interrupt handler
@@ -474,7 +474,7 @@ sub shmem_opt {
 
     my ($chld_shmem, $chld_busy);
     eval {
-        $chld_shmem = &shmem("qpsmtpd", 0);    #connect to shared memory hash
+        $chld_shmem = &shmem($d_port."qpsmtpd", 0);    #connect to shared memory hash
 
         if (tied %{$chld_shmem}) {
             # perform options