Changeset 3188 for trunk/essentials/dev-lang/perl/configpm

Timestamp:

Apr 22, 2007, 10:57:48 AM (18 years ago)

Author:

bird

Message:

Applied patch from Paul (aka Creeping).

File:

• trunk/essentials/dev-lang/perl/configpm (modified) (1 diff)

trunk/essentials/dev-lang/perl/configpm

@@ -475 +475 @@
     print CONFIG <<'ENDOFSET';
 my %preconfig;
-if ($OS2::is_aout) {
-    my ($value, $v) = $Config_SH_expanded =~ m/^used_aout='(.*)'\s*$/m;
-    for (split ' ', $value) {
-        ($v) = $Config_SH_expanded =~ m/^aout_$_='(.*)'\s*$/m;
-        $preconfig{$_} = $v eq 'undef' ? undef : $v;
-    }
-}
-$preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
+#if ($OS2::is_aout) {
+#    my ($value, $v) = $Config_SH_expanded =~ m/^used_aout='(.*)'\s*$/m;
+#    for (split ' ', $value) {
+#        ($v) = $Config_SH_expanded =~ m/^aout_$_='(.*)'\s*$/m;
+#        $preconfig{$_} = $v eq 'undef' ? undef : $v;
+#    }
+#}
+#$preconfig{d_fork} = undef unless $OS2::can_fork; # Some funny cases can't
 sub TIEHASH { bless {%preconfig} }
 ENDOFSET