From 34b5802582e6ac0ab95ef6940fa408896842b141 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 24 Sep 1998 03:30:32 +0000 Subject: [PATCH] remove bogus warn() p4raw-id: //depot/perl@1862 --- embed.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/embed.pl b/embed.pl index 1d10c6c..497b97d 100755 --- 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"; } } -- 2.7.4