add missing file from change#1943

[p5sagit/p5-mst-13.2.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 1d10c6c..52c93ab 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -62,11 +62,10 @@ readvars %globvar, 'perlvars.h','G';
 
 foreach my $sym (sort keys %intrp)
  {
-  warn "$sym not in interp.sym\n" unless exists $interp{$sym};
   if (exists $global{$sym})
    {
     delete $global{$sym};
-    warn "$sym in global.sym as well as interp\n";
+    warn "$sym in global.sym as well as intrpvar.h\n";
    }
  }
 
@@ -81,11 +80,11 @@ foreach my $sym (sort keys %globvar)
 
 foreach my $sym (sort keys %thread)
  {
-  warn "$sym in intrpvar.h\n" if exists $intrp{$sym};
+  warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
   if (exists $global{$sym})
    {
     delete $global{$sym};
-    warn "$sym in global.sym as well as thread\n";
+    warn "$sym in global.sym as well as thrdvar.h\n";
    }
  }
 
@@ -299,7 +298,7 @@ END
 
 print EM <<'END';
 
-#ifndef MIN_PERL_DEFINE  
+#if 0 /* ndef MIN_PERL_DEFINE */       /* unsupported in 5.006 */
 
 END