Avoid redefinedness warning for now.

[perl5.git] / lib / Thread.pm

diff --git a/lib/Thread.pm b/lib/Thread.pm
index d3e27e1..c648954 100644 (file)
--- 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));