… | |
… | |
1027 | PL_preambleav = newAV (); |
1027 | PL_preambleav = newAV (); |
1028 | |
1028 | |
1029 | av_unshift (PL_preambleav, 1); |
1029 | av_unshift (PL_preambleav, 1); |
1030 | av_store (PL_preambleav, 0, newSVpv (bootstrap, sizeof (bootstrap) - 1)); |
1030 | av_store (PL_preambleav, 0, newSVpv (bootstrap, sizeof (bootstrap) - 1)); |
1031 | #else |
1031 | #else |
1032 | av_create_and_unshift_one (&PL_preambleav, newSVpv (bootstrap, sizeof (bootstrap) - 1)); |
1032 | Perl_av_create_and_unshift_one (&PL_preambleav, newSVpv (bootstrap, sizeof (bootstrap) - 1)); |
1033 | #endif |
1033 | #endif |
1034 | |
1034 | |
1035 | if (PL_oldname) |
1035 | if (PL_oldname) |
1036 | ((XSINIT_t)PL_oldname)(aTHX); |
1036 | ((XSINIT_t)PL_oldname)(aTHX); |
1037 | } |
1037 | } |