perl5db.pl: Fix indirect syntax

Fixes #21589
Perl · Nov 3, 2023 · 61a1c8e · 61a1c8e
1 parent 5314ff9
commit 61a1c8e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
@@ -532,7 +532,7 @@ BEGIN
 use vars qw($VERSION $header);
 
 # bump to X.XX in blead, only use X.XX_XX in maint
-$VERSION = '1.78';
+$VERSION = '1.79';
 
 $header = "perl5db.pl version $VERSION";
 
@@ -871,7 +871,7 @@ BEGIN
     if ($ENV{PERL5DB_THREADED}) {
         require threads;
         require threads::shared;
-        import threads::shared qw(share);
+        threads::shared->import('share');
         $DBGR;
         share(\$DBGR);
         lock($DBGR);