diff options
| author | Abir Viqar <abiviq@hushmail.com> | 2013-12-14 14:05:43 -0500 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-12-19 17:26:26 +0000 |
| commit | 9c7cb4611e3c450ad0766327af388f5dce504c02 (patch) | |
| tree | 91f90d5aac51c5454ebb82eaadcfa5ad00c87943 | |
| parent | 5e1cf63ba35995df5a77e4c4eb5eb266ab2fc9b5 (diff) | |
| download | perl-9c7cb4611e3c450ad0766327af388f5dce504c02.tar.gz | |
Porting/corelist-perldelta.pl - Use Unix newlines in perldelta
| -rwxr-xr-x | Porting/corelist-perldelta.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Porting/corelist-perldelta.pl b/Porting/corelist-perldelta.pl index 0a9695e5df..690d66a425 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 |