summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-11-20 18:08:54 +0000
committerKarl Berry <karl@freefriends.org>2012-11-20 18:08:54 +0000
commitc5add2ea5067382269ae6f19e345fda0b9a7bd21 (patch)
tree02f512fda46d93079c9dc59c0d76f0e398150f83 /Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm
parent6c35e87bdc5a3f64833dbbc42e7d42e683db9d5b (diff)
perl 5.16.2, compiled without optimization for Windows (from siep)
git-svn-id: svn://tug.org/texlive/trunk@28315 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm b/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm
index 614a59a85e5..69f8dcaa447 100644
--- a/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm
+++ b/Master/tlpkg/tlperl/lib/Devel/InnerPackage.pm
@@ -4,7 +4,7 @@ use strict;
use base qw(Exporter);
use vars qw($VERSION @EXPORT_OK);
-$VERSION = '0.3';
+$VERSION = '0.4';
@EXPORT_OK = qw(list_packages);
=pod
@@ -83,12 +83,12 @@ sub list_packages {
sub _loaded {
my ($class, $name) = @_;
- no strict 'refs';
+ no strict 'refs';
# Handle by far the two most common cases
# This is very fast and handles 99% of cases.
return 1 if defined ${"${name}::VERSION"};
- return 1 if defined @{"${name}::ISA"};
+ return 1 if @{"${name}::ISA"};
# Are there any symbol table entries other than other namespaces
foreach ( keys %{"${name}::"} ) {