PERFORCE change 11277 for review

[Jarkko Hietaniemi]

Change 11277 by jhi@alpha on 2001/07/11 13:31:43

        Subject: blead kit timestamps && the problem with running perl embed.pl
        From: Peter Prymmer <[EMAIL PROTECTED]>
        Date: Tue, 10 Jul 2001 19:33:00 -0700 (PDT)
        Message-ID: <[EMAIL PROTECTED]>
        
        Backport of embed.pl to 5.003.

Affected files ...

... //depot/perl/embed.pl#256 edit

Differences ...

==== //depot/perl/embed.pl#256 (xtext) ====
Index: perl/embed.pl
--- perl/embed.pl.~1~   Wed Jul 11 07:45:05 2001
+++ perl/embed.pl       Wed Jul 11 07:45:05 2001
@@ -49,7 +49,8 @@
        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 %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 @@
 
 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 @@
        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 @@
 }
 
 # XXXX temporary hack
-my $sym;
 for $sym (qw(
                perl_construct
                perl_destruct
End of Patch.