[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.349,1.350

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3430/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Don't use IO::Dir, just use built-in funcs

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.349
retrieving revision 1.350
diff -C2 -d -r1.349 -r1.350
*** Base.pm	15 Nov 2004 20:15:03 -0000	1.349
--- Base.pm	19 Nov 2004 16:40:43 -0000	1.350
***************
*** 12,16 ****
  use Data::Dumper ();
  use IO::File ();
- use IO::Dir ();
  use Text::ParseWords ();
  
--- 12,15 ----
***************
*** 2133,2140 ****
    return unless -d $dir;
  
!   my $dh = IO::Dir->new( $dir ) or die "Can't read directory $dir: $!";
  
    my @files;
!   while (defined (my $file = $dh->read)) {
      my $full_path = File::Spec->catfile($dir, $file);
      next if -d $full_path;
--- 2132,2140 ----
    return unless -d $dir;
  
!   local *DH;
!   opendir DH, $dir or die "Can't read directory $dir: $!";
  
    my @files;
!   while (defined (my $file = readdir DH)) {
      my $full_path = File::Spec->catfile($dir, $file);
      next if -d $full_path;