ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/App-Staticperl/mkbundle
(Generate patch)

Comparing App-Staticperl/mkbundle (file contents):
Revision 1.34 by root, Mon Mar 12 21:45:10 2012 UTC vs.
Revision 1.36 by root, Sun Jul 8 23:30:49 2018 UTC

… …
977 } 977 }
978 978
979 XSRETURN ($varpfx\_count); 979 XSRETURN ($varpfx\_count);
980} 980}
981 981
982#ifdef STATICPERL_BUNDLE_INCLUDE
983#include STATICPERL_BUNDLE_INCLUDE
984#endif
985
982EOF 986EOF
983 987
984############################################################################# 988#############################################################################
985# xs_init 989# xs_init
986 990
… …
1003 char *file = __FILE__; 1007 char *file = __FILE__;
1004 dXSUB_SYS; 1008 dXSUB_SYS;
1005 1009
1006 newXSproto ("$PACKAGE\::find", find, file, "\$"); 1010 newXSproto ("$PACKAGE\::find", find, file, "\$");
1007 newXSproto ("$PACKAGE\::list", list, file, ""); 1011 newXSproto ("$PACKAGE\::list", list, file, "");
1012
1013 #ifdef STATICPERL_BUNDLE_XS_INIT
1014 STATICPERL_BUNDLE_XS_INIT;
1015 #endif
1008EOF 1016EOF
1009 1017
1010# calls 1018# calls
1011for (@static_ext) { 1019for (@static_ext) {
1012 s/\.pm$//; 1020 s/\.pm$//;
… …
1018 1026
1019 print $fh " newXS (\"$pname\::$bootstrap\", boot_$cname, file);\n"; 1027 print $fh " newXS (\"$pname\::$bootstrap\", boot_$cname, file);\n";
1020} 1028}
1021 1029
1022print $fh <<EOF; 1030print $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
1023 #ifdef _WIN32 1035 #ifdef _WIN32
1024 /* 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 */
1025 1037
1026 if (!PL_preambleav) 1038 if (!PL_preambleav)
1027 PL_preambleav = newAV (); 1039 PL_preambleav = newAV ();

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines