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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Integrate from perlio; restructuring.
[perl5.git]
/
writemain.SH
diff --git
a/writemain.SH
b/writemain.SH
old mode 100755
(executable)
new mode 100644
(file)
index
f07c682
..
ed8aca6
--- a/
writemain.SH
+++ b/
writemain.SH
@@
-1,4
+1,4
@@
-case $
CONFIG
in
+case $
PERL_CONFIG_SH
in
'')
if test -f config.sh; then TOP=.;
elif test -f ../config.sh; then TOP=..;
'')
if test -f config.sh; then TOP=.;
elif test -f ../config.sh; then TOP=..;
@@
-37,7
+37,11
@@
$spitshell >>writemain <<'!NO!SUBS!'
orig="$*"
args=''
: Remove any .a suffixes and any leading path components
orig="$*"
args=''
: Remove any .a suffixes and any leading path components
-for file in `echo $orig | sed 's/\.a//g'` ; do
+for file in $orig ; do
+ case "$file" in
+ *.a) file=`echo $file | sed 's/\.a//g'`
+ ;;
+ esac
case "$file" in
ext/*) file=`echo $file | sed 's:ext/\(.*\)/[^/]*:\1:'`
;;
case "$file" in
ext/*) file=`echo $file | sed 's:ext/\(.*\)/[^/]*:\1:'`
;;
@@
-61,20
+65,21
@@
if test X"$args" != "X" ; then
mname=`echo $ext | sed 's!/!::!g'`
cname=`echo $mname | sed 's!:!_!g'`
mname=`echo $ext | sed 's!/!::!g'`
cname=`echo $mname | sed 's!:!_!g'`
-echo "EXTERN_C void boot_${cname}
_((CV* cv)
);"
+echo "EXTERN_C void boot_${cname}
(pTHX_ CV* cv
);"
done
fi
cat << 'EOP'
static void
done
fi
cat << 'EOP'
static void
-xs_init()
+xs_init(
pTHX
)
{
{
- dXSUB_SYS;
EOP
if test X"$args" != "X" ; then
echo " char *file = __FILE__;"
EOP
if test X"$args" != "X" ; then
echo " char *file = __FILE__;"
+ echo " dXSUB_SYS;"
+
ai=''
for ext in $args ; do
ai=''
for ext in $args ; do