summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorPeter Prymmer <PPrymmer@factset.com>2001-07-10 12:33:00 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-11 13:31:43 +0000
commit4543f4c00774aa97ed0915825e1f257dcf27c3a6 (patch)
tree6285b652b82a98582c3fed1a143a980d0a44b774 /embed.pl
parentad9fea34ce757b6a0cfa9cf2d6f68b45f1f216d8 (diff)
downloadperl-4543f4c00774aa97ed0915825e1f257dcf27c3a6.tar.gz
blead kit timestamps && the problem with running perl embed.pl
Message-ID: <Pine.OSF.4.10.10107101906360.137455-100000@aspara.forte.com> Backport of embed.pl to 5.003. p4raw-id: //depot/perl@11277
Diffstat (limited to 'embed.pl')
-rwxr-xr-xembed.pl15
1 files changed, 8 insertions, 7 deletions
diff --git a/embed.pl b/embed.pl
index c2f5351d86..82ebfd2d8f 100755
--- a/embed.pl
+++ b/embed.pl
@@ -49,7 +49,8 @@ sub walk_table (&@) {
else {
@args = split /\s*\|\s*/, $_;
}
- print $F $function->(@args);
+ my @outs = &{$function}(@args);
+ print $F @outs; # $function->(@args) is not 5.003
}
print $F $trailer if $trailer;
close $F unless ref $filename;
@@ -251,7 +252,8 @@ readvars %intrp, 'intrpvar.h','I';
readvars %thread, 'thrdvar.h','T';
readvars %globvar, 'perlvars.h','G';
-foreach my $sym (sort keys %thread) {
+my $sym;
+foreach $sym (sort keys %thread) {
warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
}
@@ -856,15 +858,15 @@ START_EXTERN_C
EOT
-foreach my $sym (sort keys %intrp) {
+foreach $sym (sort keys %intrp) {
print CAPIH bincompat_var('I',$sym);
}
-foreach my $sym (sort keys %thread) {
+foreach $sym (sort keys %thread) {
print CAPIH bincompat_var('T',$sym);
}
-foreach my $sym (sort keys %globvar) {
+foreach $sym (sort keys %globvar) {
print CAPIH bincompat_var('G',$sym);
}
@@ -985,7 +987,7 @@ sub emit_func {
if (length $return) {
$decl .= " $rettype retval;\n";
$retarg .= "retval = ";
- $return = "\n ${return}retval;\n";
+ $return = "\n " . $return . "retval;\n";
}
$emitval .= <<EOT
$rettype
@@ -1011,7 +1013,6 @@ EOT
}
# XXXX temporary hack
-my $sym;
for $sym (qw(
perl_construct
perl_destruct