This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
redo part of change 27374
authorAbe Timmerman <abe@ztreet.demon.nl>
Mon, 29 May 2006 23:24:51 +0000 (01:24 +0200)
committerCraig A. Berry <craigberry@mac.com>
Mon, 29 May 2006 22:34:23 +0000 (22:34 +0000)
Message-id: <200605292324.51714.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@28334

configure.com

index b8d6da7..d0a08c5 100644 (file)
@@ -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 + "'"