diff options
author | Peter Prymmer <PPrymmer@factset.com> | 2001-07-10 12:33:00 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-11 13:31:43 +0000 |
commit | 4543f4c00774aa97ed0915825e1f257dcf27c3a6 (patch) | |
tree | 6285b652b82a98582c3fed1a143a980d0a44b774 /embed.pl | |
parent | ad9fea34ce757b6a0cfa9cf2d6f68b45f1f216d8 (diff) | |
download | perl-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-x | embed.pl | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -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 |