This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
566e3ef
)
Propagate bugfixes from {mini,}perlmain.c into ExtUtils::Embed.
author
Nicholas Clark
<nick@ccl4.org>
Mon, 8 Jul 2013 08:39:50 +0000
(10:39 +0200)
committer
Nicholas Clark
<nick@ccl4.org>
Tue, 9 Jul 2013 05:54:26 +0000
(07:54 +0200)
xs_init() must pass a static char* when creating &DynaLoader::boot_DynaLoader
(commit
1b77350017006d9e
)
Avoid linker errors on Win32 by including perlapi.h (via XSUB.h)
(commit
3ecadf9633330795
)
my_perl might be unused
(commit
96a5add60f1f39d3
)
lib/ExtUtils/Embed.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/ExtUtils/Embed.pm
b/lib/ExtUtils/Embed.pm
index
758e241
..
8953ce7
100644
(file)
--- a/
lib/ExtUtils/Embed.pm
+++ b/
lib/ExtUtils/Embed.pm
@@
-85,6
+85,7
@@
sub xsi_header {
return <<EOF;
#include <EXTERN.h>
#include <perl.h>
+#include <XSUB.h>
EOF
}
@@
-109,8
+110,9
@@
sub xsi_body {
my(@exts) = @_;
my($pname,@retval,%seen);
my($dl) = canon('/','DynaLoader');
- push(@retval, "\tchar *file = __FILE__;\n");
- push(@retval, "\tdXSUB_SYS;\n") if $] > 5.002;
+ push(@retval, "\tstatic const char file[] = __FILE__;\n");
+ push(@retval, "\tdXSUB_SYS;\n");
+ push(@retval, "\tPERL_UNUSED_CONTEXT;\n");
push(@retval, "\n");
foreach $_ (@exts){