Offset 43, 22 lines modified | Offset 43, 22 lines modified |
43 | » local·$^W; | 43 | » local·$^W; |
44 | » #·use·warnings | 44 | » #·use·warnings |
45 | » ${^WARNING_BITS}·^=·${^WARNING_BITS}·^·"\xfc\x3f\xf3\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03\x3f\x00\xc0"; | 45 | » ${^WARNING_BITS}·^=·${^WARNING_BITS}·^·"\xfc\x3f\xf3\x00\x0f\xf3\xcf\xc0\xf3\xfc\x33\x03\x3f\x00\xc0"; |
| |
46 | » #·use·strict,·utf8,·open,·5.010,·... | 46 | » #·use·strict,·utf8,·open,·5.010,·... |
47 | » $^H·|=·0x1c8e0ee2; | 47 | » $^H·|=·0x1c8e0ee2; |
| |
48 | » #·use·feature·qw(feature_unicode·feature_arybase·open<·open>·feature_say·feature_state·feature_switch) | 48 | » #·use·feature·qw(feature_arybase·open>·feature_state·feature_say·feature_unicode·feature_switch·open<) |
49 | » $^H{'feature_unicode'}·=·1; | |
50 | » $^H{'feature_arybase'}·=·1; | 49 | » $^H{'feature_arybase'}·=·1; |
51 | » $^H{'open<'}·=·":utf8"; | |
52 | » $^H{'open>'}·=·":utf8"; | 50 | » $^H{'open>'}·=·":utf8"; |
53 | » $^H{'feature_say'}·=·1; | |
54 | » $^H{'feature_state'}·=·1; | 51 | » $^H{'feature_state'}·=·1; |
| 52 | » $^H{'feature_say'}·=·1; |
| 53 | » $^H{'feature_unicode'}·=·1; |
55 | » $^H{'feature_switch'}·=·1; | 54 | » $^H{'feature_switch'}·=·1; |
| 55 | » $^H{'open<'}·=·":utf8"; |
| |
56 | » #·use·mro·'c3'; | 56 | » #·use·mro·'c3'; |
57 | » mro::set_mro($caller,·'c3'); | 57 | » mro::set_mro($caller,·'c3'); |
58 | » | 58 | » |
59 | » #use·open·(:utf8·:std); | 59 | » #use·open·(:utf8·:std); |
60 | » ${^OPEN}·=·":utf8\0:utf8"; | 60 | » ${^OPEN}·=·":utf8\0:utf8"; |
61 | » binmode(STDIN,···":utf8"); | 61 | » binmode(STDIN,···":utf8"); |
Offset 88, 22 lines modified | Offset 88, 22 lines modified |
88 | » my·$caller·=·caller; | 88 | » my·$caller·=·caller; |
89 | » #·no·warnings | 89 | » #·no·warnings |
90 | » ${^WARNING_BITS}·=·"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"; | 90 | » ${^WARNING_BITS}·=·"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"; |
| |
91 | » #·no·strict,·utf8,·open,·5.010,·... | 91 | » #·no·strict,·utf8,·open,·5.010,·... |
92 | » $^H·&=·~0x1c8e0ee2; | 92 | » $^H·&=·~0x1c8e0ee2; |
| |
93 | » #·no·feature·qw(feature_unicode·feature_arybase·open<·open>·feature_say·feature_state·feature_switch) | 93 | » #·no·feature·qw(feature_arybase·open>·feature_state·feature_say·feature_unicode·feature_switch·open<) |
94 | » delete·$^H{'feature_unicode'}; | |
95 | » delete·$^H{'feature_arybase'}; | 94 | » delete·$^H{'feature_arybase'}; |
96 | » delete·$^H{'open<'}; | |
97 | » delete·$^H{'open>'}; | 95 | » delete·$^H{'open>'}; |
98 | » delete·$^H{'feature_say'}; | |
99 | » delete·$^H{'feature_state'}; | 96 | » delete·$^H{'feature_state'}; |
| 97 | » delete·$^H{'feature_say'}; |
| 98 | » delete·$^H{'feature_unicode'}; |
100 | » delete·$^H{'feature_switch'}; | 99 | » delete·$^H{'feature_switch'}; |
| 100 | » delete·$^H{'open<'}; |
| |
101 | » ${^OPEN}·=·":raw\0:raw"; | 101 | » ${^OPEN}·=·":raw\0:raw"; |
102 | » binmode(STDIN,···":raw"); | 102 | » binmode(STDIN,···":raw"); |
103 | » binmode(STDOUT,··":raw"); | 103 | » binmode(STDOUT,··":raw"); |
104 | » binmode(STDERR,··":raw"); | 104 | » binmode(STDERR,··":raw"); |
105 | » return; | 105 | » return; |
106 | } | 106 | } |