[LON-CAPA-cvs] cvs: modules /raeburn dumpdb_totext.pl

raeburn raeburn@source.lon-capa.org
Tue, 27 Jan 2009 17:07:00 -0000


raeburn		Tue Jan 27 17:07:00 2009 EDT

  Modified files:              
    /modules/raeburn	dumpdb_totext.pl 
  Log:
  Recursive call to &descend_tree() was missing second argument. 
  
  
Index: modules/raeburn/dumpdb_totext.pl
diff -u modules/raeburn/dumpdb_totext.pl:1.1 modules/raeburn/dumpdb_totext.pl:1.2
--- modules/raeburn/dumpdb_totext.pl:1.1	Tue Jan 27 06:05:33 2009
+++ modules/raeburn/dumpdb_totext.pl	Tue Jan 27 17:07:00 2009
@@ -145,7 +145,7 @@
         closedir(DIR);
         foreach my $item (@contents) {
             if (-d $dir.'/'.$item) {
-                &descend_tree($dir.'/'.$item);
+                &descend_tree($dir.'/'.$item,$alldbfiles);
             } elsif ($item =~ /\.db$/) {
                 $alldbfiles->{$dir.'/'.$item} = 1;
             }