[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