[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Feb 15 17:57:39 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache
In directory dev.open-bio.org:/tmp/cvs-serv28848/Perl/MOBY/RDF/Ontologies/Cache

Modified Files:
	CacheUtils.pm 
Log Message:

moby-live/Perl/MOBY/RDF/Ontologies/Cache CacheUtils.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/CacheUtils.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/CacheUtils.pm	2007/11/29 17:53:34	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/CacheUtils.pm	2008/02/15 22:57:39	1.3
@@ -297,5 +297,17 @@
 
 }
 
+
+sub plainfiles {
+   my ($self, $dir )= @_;
+   my $dh = DirHandle->new($dir)   or die "can't opendir $dir: $!";
+   return sort                     # sort pathnames
+          grep {    -f     }       # choose only "plain" files
+          map  { "$dir/$_" }       # create full paths
+          grep {  !/^\./   }       # filter out dot files
+          $dh->read();             # read all entries
+}
+
+
 1;
 __END__