*** Heavy.pm	Wed May 15 19:38:18 2002
--- /usr/local/lib/perl5/5.6.1/Exporter/Heavy.pm	Wed May 15 19:35:51 2002***************
*** 36,48 ****
  	    }
  	}
  
! 	if ($imports[0] =~ m#^[/!:]#){
  	    my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
  	    my $tagdata;
  	    my %imports;
  	    my($remove, $spec, @names, @allexports);
  	    # negated first item implies starting with default set:
! 	    unshift @imports, ':DEFAULT' if $imports[0] =~ m/^!/;
  	    foreach $spec (@imports){
  		$remove = $spec =~ s/^!//;
  
--- 54,66 ----
  	    }
  	}
  
! 	if (grep {m#^[/!:]#} @imports){
  	    my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
  	    my $tagdata;
  	    my %imports;
  	    my($remove, $spec, @names, @allexports);
  	    # negated first item implies starting with default set:
! 	    unshift @imports, ':DEFAULT' if (grep{m/^!/} @imports);
  	    foreach $spec (@imports){
  		$remove = $spec =~ s/^!//;