X-Git-Url: https://erislabs.net/gitweb/?p=id3fs.git;a=blobdiff_plain;f=lib%2FID3FS%2FAudioFile.pm;h=ffd78d63d4e6240a0f76c8e098aef9ab2a8130ab;hp=e020b4381f92f16bf2e0a5c6370e8aeef47cba58;hb=9ef40433a1ba4044561f5941b07ba0d90a085942;hpb=f768e5fc4f33962bfac1142c546776cc0e239ec0

diff --git a/lib/ID3FS/AudioFile.pm b/lib/ID3FS/AudioFile.pm
index e020b43..ffd78d6 100644
--- a/lib/ID3FS/AudioFile.pm
+++ b/lib/ID3FS/AudioFile.pm
@@ -173,4 +173,27 @@ sub stripslashes
     return $text;
 }
 
+# This location for these subs is pretty much arbitrary
+sub uniq
+{
+    # class method
+    shift if(ref($_[0]) eq "ID3FS::AudioFile");
+    my (@things)=@_;
+    my %hash=();
+    @hash{@things}=();
+    return(sort keys(%hash));
+}
+
+sub list_remove
+{
+    my($remove, $list)=@_;
+    return(()) unless($list && @$list);
+    my @list=@$list;
+    for my $tag (@$remove)
+    {
+	@list=grep { $_ ne $tag; } @list;
+    }
+    return(@list);
+}
+
 1;