From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Mon, 29 May 2006 23:24:51 +0000 (+0200)
Subject: redo part of change 27374
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ecd6e0980bb546d8adbd5495a9a34caea25be6ad;p=p5sagit%2Fp5-mst-13.2.git

redo part of change 27374
Message-id: <200605292324.51714.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@28334
---

diff --git a/configure.com b/configure.com
index b8d6da7..d0a08c5 100644
--- a/configure.com
+++ b/configure.com
@@ -6281,7 +6281,14 @@ $ WC "shmattype='" + " '"
 $ WC "shortsize='" + shortsize + "'"
 $ WC "shrplib='define'"
 $ WC "sig_name='" + sig_name + "'"
-$ WC "sig_name_init='" + sig_name_init + "'"
+$ IF (f$length(sig_name_init) .GE. 1024)
+$ THEN
+$     tmp = "sig_name_init='" + sig_name_init + "'"
+$     WC/symbol tmp
+$     DELETE/SYMBOL tmp
+$ ELSE
+$     WC "sig_name_init='" + sig_name_init + "'"
+$ ENDIF
 $ WC "sig_num='" + sig_num + "'"
 $ WC "sig_num_init='" + sig_num_init + "'"
 $ WC "sig_count='" + sig_count + "'"