[docs] xmldocs - racke modified bin/whatsnew-update

docs at icdevgroup.org docs at icdevgroup.org
Thu Jan 19 15:16:44 EST 2006


User:      racke
Date:      2006-01-19 20:16:44 GMT
Modified:  bin      whatsnew-update
Log:
directory was missing in function file_list

Revision  Changes    Path
1.6       +6 -2      xmldocs/bin/whatsnew-update


rev 1.6, prev_rev 1.5
Index: whatsnew-update
===================================================================
RCS file: /var/cvs/xmldocs/bin/whatsnew-update,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- whatsnew-update	19 Jan 2006 20:08:25 -0000	1.5
+++ whatsnew-update	19 Jan 2006 20:16:44 -0000	1.6
@@ -84,12 +84,16 @@
 
 sub file_list {
 	my $dir = shift;
-	my @files;
+	my ($file, @files);
 
 	if (-d $dir) {
 		opendir (DIR, $dir)
 			|| die "$0: failed to enter directory '$dir'\n";
-		@files = grep {-f $_} readdir(DIR);
+		while ($file = readdir(DIR)) {
+			if (-f "$dir/$file") {
+				push(@files, "$dir/$file");
+			}
+		}
 		closedir (DIR);
 	}
 








More information about the docs mailing list