This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip PL_sig_sv when PERL_IMPLICIT_CONTEXT is defined
authorSteve Hay <SteveHay@planit.com>
Fri, 29 Apr 2005 08:24:50 +0000 (08:24 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 29 Apr 2005 08:24:50 +0000 (08:24 +0000)
(rather than when PERL_IMPLICIT_SYS is defined)

p4raw-id: //depot/perl@24352

makedef.pl

index 3a85ffc..8e540a1 100644 (file)
@@ -572,12 +572,17 @@ unless ($define{'DEBUGGING'}) {
                    )];
 }
 
+if ($define{'PERL_IMPLICIT_CONTEXT'}) {
+    skip_symbols [qw(
+                   PL_sig_sv
+                   )];
+}
+
 if ($define{'PERL_IMPLICIT_SYS'}) {
     skip_symbols [qw(
                    Perl_getenv_len
                    Perl_my_popen
                    Perl_my_pclose
-                   PL_sig_sv
                    )];
 }
 else {