diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-02-15 18:54:11 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-02-20 00:07:03 +0000 |
commit | df74e889768b1b16be38c808c6f5ee92424c4cae (patch) | |
tree | f1239cc614b06842a80d6f8c38993bccfdee5459 /lib/perl5db.pl | |
parent | af25a83fffea9ef768d4bbaadbe91935482c3bfa (diff) | |
download | perl-df74e889768b1b16be38c808c6f5ee92424c4cae.tar.gz |
perl5db.pl needs to use :prototype() attribute to set sub prototypes
Diffstat (limited to 'lib/perl5db.pl')
-rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 081e985896..8ece5151cb 100644 --- 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.69'; +$VERSION = '1.70'; $header = "perl5db.pl version $VERSION"; @@ -876,8 +876,8 @@ BEGIN { lock($DBGR); print "Threads support enabled\n"; } else { - *lock = sub(*) {}; - *share = sub(\[$@%]) {}; + *lock = sub :prototype(*) {}; + *share = sub :prototype(\[$@%]) {}; } } |