diff options
Diffstat (limited to 'lib/URI/urn.pm')
-rw-r--r-- | lib/URI/urn.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/URI/urn.pm b/lib/URI/urn.pm index b25250f..833c3cc 100644 --- a/lib/URI/urn.pm +++ b/lib/URI/urn.pm @@ -3,14 +3,13 @@ package URI::urn; # RFC 2141 use strict; use warnings; -our $VERSION = '5.21'; +our $VERSION = '5.25'; use parent 'URI'; use Carp qw(carp); my %implementor; -my %require_attempted; sub _init { my $class = shift; @@ -30,13 +29,11 @@ sub _init { $impclass = "URI::urn::$id"; no strict 'refs'; unless (@{"${impclass}::ISA"}) { - if (not exists $require_attempted{$impclass}) { # Try to load it my $_old_error = $@; eval "require $impclass"; die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; $@ = $_old_error; - } $impclass = "URI::urn" unless @{"${impclass}::ISA"}; } } @@ -44,7 +41,6 @@ sub _init { carp("Illegal namespace identifier '$nid' for URN '$self'") if $^W; } $implementor{$nid} = $impclass; - return $impclass->_urn_init($self, $nid); } |