[or-cvs] Make translation metadata thing CRLF safe

[Peter Palfrader]

Update of /home/or/cvsroot/website/include
In directory moria:/tmp/cvs-serv9127

Modified Files:
	functions.wmi 
Log Message:
Make translation metadata thing CRLF safe

Index: functions.wmi
===================================================================
RCS file: /home/or/cvsroot/website/include/functions.wmi,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -d -r1.8 -r1.9
--- functions.wmi	27 Jan 2006 00:03:01 -0000	1.8
+++ functions.wmi	16 Feb 2006 16:32:57 -0000	1.9
@@ -11,6 +11,7 @@ sub getMetadata($) {
 	my $found_metadata = 0;
 	while (<F>) {
 		chomp;
+		s/\r$//;
 		if ($_ eq '## translation metadata') {
 			$found_metadata = 1;
 			last;
@@ -20,6 +21,7 @@ sub getMetadata($) {
 	my %data;
 	while (<F>) {
 		chomp;
+		s/\r$//;
 		if (/^#\s*(\S*):\s*(.*?)\s*$/) {
 			$data{$1} = $2;
 		} else {