#
################################################################################
#
-# $Revision: 4 $
+# $Revision: 6 $
# $Author: mhx $
-# $Date: 2005/01/31 08:10:49 +0100 $
+# $Date: 2005/03/10 18:10:17 +0100 $
#
################################################################################
#
);
my %config = (
- default => {
+ default => {
config_args => '-des',
},
- thread => {
+ thread => {
config_args => '-des -Dusethreads',
masked_versions => [ qr/^perl5\.00[01234]/ ],
},
- thread5005 => {
+ thread5005 => {
config_args => '-des -Duse5005threads',
masked_versions => [ qr/^perl5\.00[012345]|^perl-5.(9|\d\d)/ ],
},
- debug => {
+ debug => {
config_args => '-des -Doptimize=-g',
},
);
sub is
{
my($s1, $s2) = @_;
-
+
defined $s1 != defined $s2 and return 0;
ref $s2 and ($s1, $s2) = ($s2, $s1);
@@ -75,6 +75,16 @@
# endif
#endif
-
+
+#if _SEM_SEMUN_UNDEFINED
+union semun
+{