summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Attribute
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
committerKarl Berry <karl@freefriends.org>2019-03-10 21:56:14 +0000
commite0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch)
tree39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/Attribute
parentb206fdc77d81ed1600949062f08de5690a4bf66f (diff)
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Attribute')
-rw-r--r--Master/tlpkg/tlperl/lib/Attribute/Handlers.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm b/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm
index 7c049d48e6f..f028286fb85 100644
--- a/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm
+++ b/Master/tlpkg/tlperl/lib/Attribute/Handlers.pm
@@ -3,8 +3,8 @@ use 5.006;
use Carp;
use warnings;
use strict;
-use vars qw($VERSION $AUTOLOAD);
-$VERSION = '0.99'; # remember to update version in POD!
+our $AUTOLOAD;
+our $VERSION = '1.01'; # remember to update version in POD!
# $DB::single=1;
my %symcache;
@@ -139,7 +139,9 @@ sub AUTOLOAD {
croak "Attribute handler '$2' doesn't handle $1 attributes";
}
-my $builtin = qr/lvalue|method|locked|unique|shared/;
+my $builtin = $] ge '5.027000'
+ ? qr/lvalue|method|shared/
+ : qr/lvalue|method|locked|shared|unique/;
sub _gen_handler_AH_() {
return sub {
@@ -270,7 +272,7 @@ Attribute::Handlers - Simpler definition of attribute handlers
=head1 VERSION
-This document describes version 0.99 of Attribute::Handlers.
+This document describes version 1.01 of Attribute::Handlers.
=head1 SYNOPSIS