Code tidy: avoid Boolean grep.

davorg-cpan · Apr 7, 2018 · da0fca4 · da0fca4
1 parent c01eb42
commit da0fca4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/AudioFile/Info/Ogg/Vorbis/Header.pm b/lib/AudioFile/Info/Ogg/Vorbis/Header.pm
@@ -53,7 +53,8 @@ sub AUTOLOAD {
   croak "Invalid attribute '$sub'" unless $data{$sub};
 
   if ($_[1]) {
-    if (grep { $_ eq $data{$sub} } $_[0]->{obj}->comment_tags) {
+    my @matches = grep { $_ eq $data{$sub} } $_[0]->{obj}->comment_tags;
+    if (@matches) {
       $_[0]->{obj}->edit_comment($data{$sub}, $_[1]);
     } else {
       $_[0]->{obj}->add_comments($data{$sub}, $_[1]);