| 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 | } |