[Bioperl-guts-l] [14803] bioperl-live/trunk/Bio/DB/SeqFeature/Store/memory.pm: fix for windows: glob() isn't working for paths with spaces in them

[Scott Cain]

Revision: 14803
Author:   scain
Date:     2008-08-15 15:39:05 -0400 (Fri, 15 Aug 2008)

Log Message:
-----------
fix for windows: glob() isn't working for paths with spaces in them

Modified Paths:
--------------
    bioperl-live/trunk/Bio/DB/SeqFeature/Store/memory.pm

Modified: bioperl-live/trunk/Bio/DB/SeqFeature/Store/memory.pm
===================================================================
--- bioperl-live/trunk/Bio/DB/SeqFeature/Store/memory.pm	2008-08-15 06:01:18 UTC (rev 14802)
+++ bioperl-live/trunk/Bio/DB/SeqFeature/Store/memory.pm	2008-08-15 19:39:05 UTC (rev 14803)
@@ -128,6 +128,7 @@
 use File::Temp 'tempdir';
 use IO::File;
 use Bio::DB::Fasta;
+use File::Glob ':glob';
 
 use constant BINSIZE => 10_000;
 
@@ -155,8 +156,8 @@
   my @argv;
   if (-d $file_or_dir) {
     @argv = (
-	     glob("$file_or_dir/*.gff"),            glob("$file_or_dir/*.gff3"),
-	     glob("$file_or_dir/*.gff.{gz,Z,bz2}"), glob("$file_or_dir/*.gff3.{gz,Z,bz2}")
+	     bsd_glob("$file_or_dir/*.gff"),            bsd_glob("$file_or_dir/*.gff3"),
+	     bsd_glob("$file_or_dir/*.gff.{gz,Z,bz2}"), bsd_glob("$file_or_dir/*.gff3.{gz,Z,bz2}")
 	     );
   } else {
     @argv = $file_or_dir;