[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;
}