Add missing conditional

zoffixznet · zoffixznet · commit dc358e9b86a4 · 2017-03-10T23:07:40.000-05:00
diff --git a/lib/ModulesPerl6/DbBuilder/Dist/Source.pm b/lib/ModulesPerl6/DbBuilder/Dist/Source.pm
@@ -88,7 +88,8 @@ sub _parse_meta {
             length and not $no_index->{$_}
         } map { trim uc } grep { not ref } @{ $json->{tags} };
 
-    log warn => "`$json->{name}` does not have any tags";
+    log warn => "`$json->{name}` does not have any tags"
+        unless @{ $json->{tags} };
 
     return $self->_fill_missing( {%$json} );
 }

Original file line number	Diff line number	Diff line change
`@@ -88,7 +88,8 @@ sub _parse_meta {`
`88`	`88`	`length and not $no_index->{$_}`
`89`	`89`	`} map { trim uc } grep { not ref } @{ $json->{tags} };`
`90`	`90`
`91`		- log warn => "`$json->{name}` does not have any tags";
	`91`	+ log warn => "`$json->{name}` does not have any tags"
	`92`	`+ unless @{ $json->{tags} };`
`92`	`93`
`93`	`94`	`return $self->_fill_missing( {%$json} );`
`94`	`95`	`}`