--- /home/dalcorn/bin/cons	Wed Apr 18 15:42:32 2001
+++ cons	Tue Nov 21 19:17:37 2000
@@ -289,12 +289,7 @@
     $_ = shift @ARGV;
     last if /^--$/;		# Argument passing to Construct.
     &option, next			if s/^-//;
-    push (@param::exclude, $_), next   if s/^\+-//;
-    if (s/^\+//) {
-       s/^\\-/-/;
-       push (@param::include, $_);
-       next;
-    }
+    push (@param::include, $_), next	if s/^\+//;
     &equate, next			if /=/;
     push (@targets, $_), next;
 }
@@ -459,7 +454,7 @@
 
 # Check script inclusion regexps
 my $re;
-for $re (@param::include, @param::exclude) {
+for $re (@param::include) {
     if (! defined eval {"" =~ /$re/}) {
 	my($err) = $@;
 	$err =~ s/in regexp at .*$//;
@@ -665,7 +660,6 @@
     Build($script);
     # Now set up the includes/excludes (after the Construct file is read).
     $param::include = join('|', @param::include);
-    $param::exclude = join('|', @param::exclude);
 
     # Save the original variable names from the script package.
     # These will stay intact, but any other "script::" variables
@@ -842,7 +836,6 @@
     my(%imports) = map {$_ => ${"script::$_"}} @{$priv::self->{exports}};
     my $file;
     for $file (@files) {
-       next if $param::exclude && $file->path =~ /$param::exclude/o;
 	next if $param::include && $file->path !~ /$param::include/o;
 	my($self) = {'script' => $file,
 		     'parent' => $priv::self,