# HG changeset patch
# User Maciej Seroka <maciejs@symbian.org>
# Date 1271672480 -3600
# Node ID 794c6106a7e28811100470863d29403a1819834c
# Parent  387fb8de4267b18f24381e09375ca24a9d9247d2
Changed record separator in delproxy.pl from default to LF.

diff -r 387fb8de4267 -r 794c6106a7e2 http/group/delproxy.pl
--- a/http/group/delproxy.pl	Mon Mar 29 16:20:00 2010 +0100
+++ b/http/group/delproxy.pl	Mon Apr 19 11:21:20 2010 +0100
@@ -22,8 +22,8 @@
 else { die 'Missing parameter "filename"'; }
 
 my $LINE;
-print $filename;
-tie @LINE, 'Tie::File', $filename or die 'file not found';
+print "$filename \n";
+tie (@LINE, 'Tie::File', $filename, recsep => "\n") or die ("File not found\n");
 my $n = 0;
 my $proxy_begin = 0;
 my $proxy_end = 0;
@@ -38,9 +38,13 @@
    }
   $n += 1;
  }
- 
+
 if ($proxy_end > 0) {
   splice @LINE, $proxy_begin, ($proxy_end - $proxy_begin + 1);
  }
 
-untie @LINE;
\ No newline at end of file
+untie @LINE;
+
+print "OK \n";
+
+exit 0;
\ No newline at end of file