Changeset 4803


Ignore:
Timestamp:
01/30/10 17:34:35 (10 years ago)
Author:
ronosman
Message:

Remove dependency with module List::MoreUtils.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • extensions/pLoader/trunk/src/Uploader/ImageList.pm

    r4801 r4803  
    2727use Uploader::Image; 
    2828use Data::Dumper; 
    29 use List::MoreUtils qw/uniq/; 
    3029use Storable; 
    3130use Digest::MD5::File qw/file_md5_hex md5_hex/; 
     
    14101409                @{$self->image_selection_tags}, 
    14111410            ]; 
    1412             @$tags = uniq @$tags; 
     1411            #deduplicate 
     1412            my $uniq = { 
     1413                 map { $_ => 1 } @$tags 
     1414            }; 
     1415            @$tags = keys %$uniq; 
    14131416            $self->GetImage($_)->site_tags( 
    14141417                $tags 
Note: See TracChangeset for help on using the changeset viewer.