File perl-dblockproto.diff of Package perl.5984

--- lib/perl5db.pl.orig	2016-08-30 14:29:32.345998856 +0000
+++ lib/perl5db.pl	2016-08-30 14:30:02.710998802 +0000
@@ -866,6 +866,7 @@ BEGIN {
         lock($DBGR);
         print "Threads support enabled\n";
     } else {
+        *lock = sub(*) {};
         *share = sub(\[$@%]) {};
     }
 }