From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 16 Nov 2001 04:48:16 +0000 (+0000)
Subject: Avoid redefinedness warning for now.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d7ceb7fc1159206a67f149394fc7aa55f6b4f7dd;p=p5sagit%2Fp5-mst-13.2.git

Avoid redefinedness warning for now.

p4raw-id: //depot/perl@13040
---

diff --git a/lib/Thread.pm b/lib/Thread.pm
index d3e27e1..c648954 100644
--- a/lib/Thread.pm
+++ b/lib/Thread.pm
@@ -316,7 +316,8 @@ BEGIN {
 	    no strict 'refs';
 	    *{"Thread::$m"} = \&{"threads::shared::${m}_enabled"};
 	}
-	unimplement(qw(list done eval flags));
+	# trying to unimplement eval gives redefined warning
+	unimplement(qw(list done flags));
     } elsif ($othreads) {
 	XSLoader::load 'Thread';
 	unimplement(qw(unlock));