| … | |
… | |
| 34 | |
34 | |
| 35 | my $out = *STDOUT; |
35 | my $out = *STDOUT; |
| 36 | |
36 | |
| 37 | if (length $OUTPUT) { |
37 | if (length $OUTPUT) { |
| 38 | undef $out; |
38 | undef $out; |
| 39 | open $out, ">:perlio", $OUTPUT |
39 | open $out, ">:raw:perlio", $OUTPUT |
| 40 | or die "$OUTPUT: $!"; |
40 | or die "$OUTPUT: $!"; |
| 41 | } |
41 | } |
| 42 | |
42 | |
| 43 | ############################################################################# |
43 | ############################################################################# |
| 44 | # for now, $MODE is --pack |
44 | # for now, $MODE is --pack |
| … | |
… | |
| 49 | ############################################################################# |
49 | ############################################################################# |
| 50 | |
50 | |
| 51 | my $urlader_md5 = "\x00" x 16; |
51 | my $urlader_md5 = "\x00" x 16; |
| 52 | |
52 | |
| 53 | if (length $URLADER) { |
53 | if (length $URLADER) { |
| 54 | open my $fh, "<:perlio", $URLADER |
54 | open my $fh, "<:raw:perlio", $URLADER |
| 55 | or die "$URLADER: $!"; |
55 | or die "$URLADER: $!"; |
| 56 | my $urlader = do { local $/; <$fh> }; |
56 | my $urlader = do { local $/; <$fh> }; |
| 57 | |
57 | |
| 58 | if (length $WINDOWS_ICON) { |
58 | if (length $WINDOWS_ICON) { |
| 59 | require Win32::Exe; |
59 | require Win32::Exe; |
| … | |
… | |
| 125 | my $len = -s _; |
125 | my $len = -s _; |
| 126 | |
126 | |
| 127 | $datasize += $len; |
127 | $datasize += $len; |
| 128 | $max_uncomp = $len if $max_uncomp < $len; |
128 | $max_uncomp = $len if $max_uncomp < $len; |
| 129 | |
129 | |
| 130 | open my $fh2, "<", "$path/$file" |
130 | open my $fh2, "<:raw:perlio", "$path/$file" |
| 131 | or die "$path/$file: $!"; |
131 | or die "$path/$file: $!"; |
| 132 | |
132 | |
| 133 | $len == sysread $fh2, my $data, $len |
133 | $len == sysread $fh2, my $data, $len |
| 134 | or die "$path/$file: read error"; |
134 | or die "$path/$file: read error"; |
| 135 | |
135 | |
