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	# 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