Help for this page

Select Code to Download


  1. or download this
        # remove trailing duplicates
        ## @INC = grep { ++$names{$_} == 1 } @INC;
        # remove leading duplicates
        @INC = reverse grep { ++$names{$_} == 1 } reverse @INC;