gentoo-overlay/app-admin/durep/files/durep-0.9-dirhandle.patch

--- durep       2007-09-08 11:44:05.000000000 -0500
+++ durep.new   2008-12-15 10:04:14.907825184 -0600
@@ -175,6 +175,7 @@
   my $coalesced_size = 0;
   my $node = {};
   my $temp;
+  my $dirhandle;

   $node->{ID} = $next_id++;
   if(defined $parent) {
@@ -196,9 +197,9 @@

   $node->{TYPE} &= $TYPE_COLLAPSED unless $store;

-  opendir(DIR, $dir) or warn "Unable to open dir '$dir': $!\n" and return $node;
+  opendir($dirhandle, $dir) or warn "Unable to open dir '$dir': $!\n" and return $node;

-  foreach(readdir(DIR)) {
+  foreach(readdir($dirhandle)) {
     @stats = lstat "$dir/$_" or warn "Unable to lstat '$dir/$_': $!\n" and next;

     $node->{MTIME} = $stats[9] if($_ eq ".");
@@ -247,7 +248,7 @@
     $file_count++;
     $node->{FCOUNT}++;
   }
-  closedir(DIR);
+  closedir($dirhandle);

   if($coalesced_count) {
     if($store) {