silence subroutine warning from redefinition

bioperl · Mar 13, 2012 · 6176be4 · 6176be4
1 parent d3af015
commit 6176be4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/Ontology/IO/go.t b/t/Ontology/IO/go.t
@@ -239,11 +239,11 @@ is(scalar(@anc),4);
 # helper functions
 #################################################################
 
-sub goid { num ( $a->GO_id() ) <=> num ( $b->GO_id() ) }
+sub goid { snum ( $a->GO_id() ) <=> snum ( $b->GO_id() ) }
 
-sub child_goid { num ( $a->child_term()->GO_id() ) <=> num ( $b->child_term()->GO_id() ) }
+sub child_goid { snum ( $a->child_term()->GO_id() ) <=> snum ( $b->child_term()->GO_id() ) }
 
-sub num {
+sub snum {
     my $x = shift( @_ );
     $x =~ s/\D+//g;
     return $x;