diff options
Diffstat (limited to 'lib/URI/urn.pm')
-rw-r--r-- | lib/URI/urn.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/URI/urn.pm b/lib/URI/urn.pm index 5118979..4f0fbba 100644 --- a/lib/URI/urn.pm +++ b/lib/URI/urn.pm @@ -30,9 +30,10 @@ sub _init { no strict 'refs'; unless (@{"${impclass}::ISA"}) { # Try to load it - local $@; + my $_old_error = $@; eval "require $impclass"; die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/; + $@ = $old_error; $impclass = "URI::urn" unless @{"${impclass}::ISA"}; } } |