From c9c21d3b896f3dedd21fddf523bed397831023ab Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Sun, 27 Jan 2002 15:58:34 +0000 Subject: Detect one-step shifts of the dso_scheme. --- Configure | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'Configure') diff --git a/Configure b/Configure index 73f33bf71c..4abbec2877 100755 --- a/Configure +++ b/Configure @@ -1544,7 +1544,19 @@ sub test_sanity { @fields = split(/\s*:\s*/,$table{$target} . ":" x 30 , -1); - if ($fields[$idx_dso_scheme] !~ /^(dl|dlfcn|win32|vms|)$/) + if ($fields[$idx_dso_scheme-1] =~ /^(dl|dlfcn|win32|vms)$/) + { + $errorcnt++; + print STDERR "SANITY ERROR: '$target' has the dso_scheme [$idx_dso_scheme] values\n"; + print STDERR " in the previous field\n"; + } + elsif ($fields[$idx_dso_scheme+1] =~ /^(dl|dlfcn|win32|vms)$/) + { + $errorcnt++; + print STDERR "SANITY ERROR: '$target' has the dso_scheme [$idx_dso_scheme] values\n"; + print STDERR " in the following field\n"; + } + elsif ($fields[$idx_dso_scheme] !~ /^(dl|dlfcn|win32|vms|)$/) { $errorcnt++; print STDERR "SANITY ERROR: '$target' has the dso_scheme [$idx_dso_scheme] field = ",$fields[$idx_dso_scheme],"\n"; -- cgit v1.2.3