From 23adef2baa5a7acdb7c5047ead731ec96d2c6ffb Mon Sep 17 00:00:00 2001
From: "mostafah%oeone.com" <mostafah%oeone.com>
Date: Mon, 16 Dec 2002 14:54:31 +0000
Subject: [PATCH] Checked in patch for bug 185145: libical does not build under
 cygwin perl in textmode

---
 other-licenses/libical/scripts/readvaluesfile.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/other-licenses/libical/scripts/readvaluesfile.pl b/other-licenses/libical/scripts/readvaluesfile.pl
index d5e2d36fd8ea..2256ca737dac 100644
--- a/other-licenses/libical/scripts/readvaluesfile.pl
+++ b/other-licenses/libical/scripts/readvaluesfile.pl
@@ -9,7 +9,8 @@ sub read_values_file {
 
   while(<F>){
     
-    chop; 
+    chomp;
+    chop if($^O eq 'cygwin'); # cygwin perl doesn't chomp dos newlines properly so use chomp
  
     s/#.*$//g;
     s/\"//g;
@@ -65,7 +66,8 @@ sub read_properties_file {
 
   while(<F>){
     
-    chop; 
+    chomp; 
+    chop if($^O eq 'cygwin'); # cygwin perl doesn't chomp dos newlines properly so use chomp
  
     s/#.*$//g;
     s/\"//g;
@@ -96,7 +98,8 @@ sub read_parameters_file {
 
   while(<F>){
     
-    chop; 
+    chomp; 
+    chop if($^O eq 'cygwin'); # cygwin perl doesn't chomp dos newlines properly so use chomp
  
     s/#.*$//g;
     s/\"//g;