perlexperiment: mark lvalue subroutines accepted

[perl5.git] / hints / unicosmk.sh

diff --git a/hints/unicosmk.sh b/hints/unicosmk.sh
index 1e6f0f0..6045fcf 100644 (file)
--- a/hints/unicosmk.sh
+++ b/hints/unicosmk.sh
@@ -20,8 +20,27 @@ esac
 # (an attempt to use them causes a runtime error)
 # XXX Configure probe for really functional shm*() is needed XXX
 if test "$d_shm" = ""; then
-    test "$d_shmctl" = "" && d_shmctl="$undef"
-    test "$d_shmget" = "" && d_shmget="$undef"
-    d_shm="$undef"
+    d_shmat=${d_shmat:-undef}
+    d_shmdt=${d_shmdt:-undef}
+    d_shmget=${d_shmget:-undef}
+    d_shmctl=${d_shmctl:-undef}
+    case "$d_shmat$d_shmctl$d_shmdt$d_shmget" in
+    *"undef"*) d_shm="$undef" ;;
+    esac
 fi
-
+# Otherwise the unpack %65c checksums will fail.
+pp_pack_cflags='optimize="-h scalar0 -h vector0"'
+# No shared libraries.
+so='none'
+# Threads call-back unit.
+cat > UU/usethreads.cbu <<'EOCBU'
+# This script UU/usethreads.cbu will get 'called-back' by Configure
+# after it has prompted the user for whether to use threads.
+case "$usethreads" in
+$define|true|[yY]*)
+        set `echo X "$libswanted "| sed -e "s/ c / pthread c /"`
+        shift
+        libswanted="$*"
+       ;;
+esac
+EOCBU