[Cogs-guts] ensupdate getensembl.pl,1.4,1.5

[kirovs <ki...@us...>]

Update of /cvsroot/cogs/ensupdate
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30896

Modified Files:
	getensembl.pl 
Log Message:
only data dirs

Index: getensembl.pl
===================================================================
RCS file: /cvsroot/cogs/ensupdate/getensembl.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** getensembl.pl	5 Dec 2005 17:43:02 -0000	1.4
--- getensembl.pl	5 Dec 2005 17:46:50 -0000	1.5
***************
*** 89,92 ****
--- 89,93 ----
   my @all=$ftp->dir;
   foreach my $d (@all) {
+   next unless ($d=~/current/i);#Only data dirs
    if ($#list>-1) {
  	 my $req;           #Check if this DB is requested