From: Abir Viqar <abiviq@hushmail.com>
Date: Sat, 14 Dec 2013 19:05:43 +0000 (-0500)
Subject: Porting/corelist-perldelta.pl - Use Unix newlines in perldelta
X-Git-Tag: upstream/5.20.0~961^2~5
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9c7cb4611e3c450ad0766327af388f5dce504c02;p=platform%2Fupstream%2Fperl.git

Porting/corelist-perldelta.pl - Use Unix newlines in perldelta
---

diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl
index 0a9695e..690d66a 100755
--- a/Porting/corelist-perldelta.pl
+++ b/Porting/corelist-perldelta.pl
@@ -265,6 +265,7 @@ sub do_update_existing {
 
   my $text = DeltaUpdater::transform_pod( $existing, $data );
   open my $out, '>', $existing or die "can't open perldelta file $existing: $!";
+  binmode($out);
   print $out $text;
   close $out;
 }
@@ -544,6 +545,7 @@ sub do_check {
     my $append_to_out = '';
 
     open my $fh, '<', $existing or die "can't open perldelta file $existing: $!";
+    binmode($fh);
 
     while (<$fh>) {
       # treat the rest of the file as plain text