trunk/Po/build-potfiles.pl

# This is free software under the terms of the GNU GPL v2.

opendir(DIR, "c:\\oss\\winpt\\src") || die "$!\n";
@dir_content = readdir DIR;
closedir(DIR);

foreach $file (@dir_content) {
print "c:\\oss\\winpt\\src\\$file\n";
}


1	twoaday	2	# This is free software under the terms of the GNU GPL v2.
2
3			opendir(DIR, "c:\\oss\\winpt\\src") \|\| die "$!\n";
4			@dir_content = readdir DIR;
5			closedir(DIR);
6
7			foreach $file (@dir_content) {
8			print "c:\\oss\\winpt\\src\\$file\n";
9			}
10
11