[Bioperl-guts-l] [14833] bioperl-live/trunk/Bio/Ontology/OBOEngine.pm: grep not needed ( check for ontology is in Ontology::get_predicate_terms)

[Christopher John Fields]

Revision: 14833
Author:   cjfields
Date:     2008-08-27 12:37:47 -0400 (Wed, 27 Aug 2008)

Log Message:
-----------
grep not needed (check for ontology is in Ontology::get_predicate_terms)

Modified Paths:
--------------
    bioperl-live/trunk/Bio/Ontology/OBOEngine.pm

Modified: bioperl-live/trunk/Bio/Ontology/OBOEngine.pm
===================================================================
--- bioperl-live/trunk/Bio/Ontology/OBOEngine.pm	2008-08-27 16:33:51 UTC (rev 14832)
+++ bioperl-live/trunk/Bio/Ontology/OBOEngine.pm	2008-08-27 16:37:47 UTC (rev 14833)
@@ -517,7 +517,7 @@
 sub get_predicate_terms {
     my ( $self ) = @_;
 
-    my @a = grep {defined $_} (
+    my @a = (
             $self->is_a_relationship(),
             $self->part_of_relationship(),
             $self->related_to_relationship(),