+ # remove common tags from %file_tags
+ for my $filename (keys(%file_tags))
+ {
+ next unless(@{$file_tags{$filename}});
+ $file_tags{$filename}= [ ID3FS::AudioFile::list_remove(\@common_tags,
+ $file_tags{$filename}) ];
+ }
+
+ # remove common tags from %dir_tags
+ for my $path (keys(%dir_tags))
+ {
+ next unless(@{$dir_tags{$path}});
+ $dir_tags{$path}= [ ID3FS::AudioFile::list_remove(\@common_tags,
+ $dir_tags{$path}) ];
+ }
+
+# print "ALL: ", join(', ', @all_tags), "\n";
+ print "Common tags: ", join(', ', @common_tags), "\n";
+# print "PER-DIR:\n";
+ for my $path (sort keys %dir_tags)