sub KosherINC {
    my $l = shift;

    @INC = ();

    if( $l->index('end')  ) { # index ain't documented (grr)
        for(0 .. $l->index('end') ) {
            push @INC, $l->entrycget($_ => '-text');
        }
    }
}