diff options
| author | Björn Gustavsson <[email protected]> | 2012-08-27 09:30:39 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-08-27 09:30:39 +0200 |
| commit | ae2c50f36806b26530de88d2609cd6ced018cb54 (patch) | |
| tree | f54ebbfc5893098110fe6cf96babc6bd7f58bb35 | |
| parent | a03b01444641aedfe6f6730d38ff890e33d3a8ea (diff) | |
| parent | a6024f8d7786664378dae8814997405c6f795f3f (diff) | |
| download | otp-ae2c50f36806b26530de88d2609cd6ced018cb54.tar.gz otp-ae2c50f36806b26530de88d2609cd6ced018cb54.tar.bz2 otp-ae2c50f36806b26530de88d2609cd6ced018cb54.zip | |
Merge branch 'bjorn/otp/fix-make_preload/OTP-10201' into maint
* bjorn/otp/fix-make_preload/OTP-10201:
make_preload: Don't fail if Perl's default file encoding is UTF-8
| -rwxr-xr-x | erts/emulator/utils/make_preload | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/erts/emulator/utils/make_preload b/erts/emulator/utils/make_preload index 13019d4062..4e329b24f8 100755 --- a/erts/emulator/utils/make_preload +++ b/erts/emulator/utils/make_preload @@ -87,6 +87,7 @@ foreach $file (@ARGV) { my $comment = ''; open(FILE, $file) or error("failed to read $file: $!"); + binmode(FILE); $_ = <FILE>; $_ = beam_strip($_); close(FILE); |