Detect one-step shifts of the dso_scheme.

diff --git a/Configure b/Configure
index 73f33bf71ca2c5cb132dd47c464d81e0b9c3c06b..4abbec287735ee7d2c022884fbaf956f572585cf 100755 (executable)
--- 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";