sub ReportExportUse {
    my( $fh, @mods ) = @_;
    my( @exports, %export_mod, %conflict );
    GroupExports( \( @exports, %export_mod, %conflict ), @mods );
    my %mod_export;
    my $inuse = 0;
    if( @exports ) {
        my $match = MatchWords( @exports );
        $match = qr/$match/;
        local $_;
        local $. = 0;      # <------------- HACK
        while( <$fh> ) {