[popfile-commit] engine/POPFile Loader.pm,1.6,1.7

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1:/tmp/cvs-serv16002/POPFile

Modified Files:
	Loader.pm 
Log Message:
Remember to close the pipe after it's been opened

Index: Loader.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Loader.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Loader.pm	10 Sep 2003 03:54:15 -0000	1.6
--- Loader.pm	11 Sep 2003 17:27:11 -0000	1.7
***************
*** 292,300 ****
      # hash getting the name from the module by calling name()
  
!     my @modules = glob "$directory/*.pm";
  
!     foreach my $module (@modules) {
!          $self->CORE_load_module($module, $type);
      }
  
      print '} ' if $self->{debug__};
--- 292,304 ----
      # hash getting the name from the module by calling name()
  
!     opendir MODULES, $directory;
  
!     while ( my $entry = readdir MODULES ) {
!         if ( $entry =~ /\.pm$/ ) {
!             $self->CORE_load_module( "$directory/$entry", $type );
! 	}
      }
+ 
+     closedir MODULES;
  
      print '} ' if $self->{debug__};