Changeset 4803

Timestamp:

Jan 30, 2010, 5:34:35 PM (14 years ago)

Author:

ronosman

Message:

Remove dependency with module List::MoreUtils.

File:

• extensions/pLoader/trunk/src/Uploader/ImageList.pm (modified) (2 diffs)

extensions/pLoader/trunk/src/Uploader/ImageList.pm

@@ -27 +27 @@
 use Uploader::Image;
 use Data::Dumper;
-use List::MoreUtils qw/uniq/;
 use Storable;
 use Digest::MD5::File qw/file_md5_hex md5_hex/;
@@ -1410 +1409 @@
                 @{$self->image_selection_tags},
             ];
-            @$tags = uniq @$tags;
+            #deduplicate
+            my $uniq = {
+                 map { $_ => 1 } @$tags
+            };
+            @$tags = keys %$uniq;
             $self->GetImage($_)->site_tags(
                 $tags