diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/UNIVERSAL.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/UNIVERSAL.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/UNIVERSAL.pm b/Master/tlpkg/tlperl/lib/UNIVERSAL.pm index 2f16cb544ab..12800fb54cc 100644 --- a/Master/tlpkg/tlperl/lib/UNIVERSAL.pm +++ b/Master/tlpkg/tlperl/lib/UNIVERSAL.pm @@ -1,6 +1,6 @@ package UNIVERSAL; -our $VERSION = '1.12'; +our $VERSION = '1.13'; # UNIVERSAL should not contain any extra subs/methods beyond those # that it exists to define. The existence of import() below is a historical @@ -186,10 +186,8 @@ None. Previous versions of this documentation suggested using C<isa> as a function to determine the type of a reference: - use UNIVERSAL 'isa'; - - $yes = isa $h, "HASH"; - $yes = isa "Foo", "Bar"; + $yes = UNIVERSAL::isa($h, "HASH"); + $yes = UNIVERSAL::isa("Foo", "Bar"); The problem is that this code would I<never> call an overridden C<isa> method in any class. Instead, use C<reftype> from L<Scalar::Util> for the first case: |