… | |
… | |
1026 | |
1026 | |
1027 | print $fh " newXS (\"$pname\::$bootstrap\", boot_$cname, file);\n"; |
1027 | print $fh " newXS (\"$pname\::$bootstrap\", boot_$cname, file);\n"; |
1028 | } |
1028 | } |
1029 | |
1029 | |
1030 | print $fh <<EOF; |
1030 | print $fh <<EOF; |
|
|
1031 | Safefree (PL_origfilename); |
|
|
1032 | PL_origfilename = savepv (PL_origargv [0]); |
|
|
1033 | sv_setpv (GvSV (gv_fetchpvs ("0", GV_ADD|GV_NOTQUAL, SVt_PV)), PL_origfilename); |
|
|
1034 | |
1031 | #ifdef _WIN32 |
1035 | #ifdef _WIN32 |
1032 | /* windows perls usually trail behind unix perls 8-10 years in exporting symbols */ |
1036 | /* windows perls usually trail behind unix perls 8-10 years in exporting symbols */ |
1033 | |
1037 | |
1034 | if (!PL_preambleav) |
1038 | if (!PL_preambleav) |
1035 | PL_preambleav = newAV (); |
1039 | PL_preambleav = newAV (); |