Changeset 7 in mp3-find

Timestamp:

02/01/06 03:05:59 (19 years ago)

Author:

peter

Message:

remove undefined query keys so we don't get warnings when trying to match against 'undef'

File:

• trunk/lib/MP3/Find/Base.pm (modified) (1 diff)

trunk/lib/MP3/Find/Base.pm

@@ -42 +42 @@
     
     foreach (keys %QUERY) {
-        # so we don't have spurious warnings when trying to match against undef
-        delete $QUERY{$_} unless defined $QUERY{$_};
-        # package everything uniformly, so subclasses don't need to unpack it
-        $QUERY{$_} = [ $QUERY{$_} ] unless ref $QUERY{$_} eq 'ARRAY';
+        if (defined $QUERY{$_}) {
+            # package everything uniformly, so subclasses don't need to unpack it
+            $QUERY{$_} = [ $QUERY{$_} ] unless ref $QUERY{$_} eq 'ARRAY';
+        } else {
+            # so we don't have spurious warnings when trying to match against undef        
+            delete $QUERY{$_};
+        }
     }