URI module for 5.005_58
Nathan Torkington (gnat@frii.com)
Sun, 1 Aug 1999 13:43:05 -0600 (MDT)
Here's a patch to eliminate warnings with the URI module under version
5.005_58 of Perl. It passes all tests after this patch was installed.
Cheers;
Nat
diff -ur URI-1.03-old/URI/file.pm URI-1.03/URI/file.pm
--- URI-1.03-old/URI/file.pm Sat Mar 20 00:43:40 1999
+++ URI-1.03/URI/file.pm Sun Aug 1 13:34:50 1999
@@ -24,7 +24,7 @@
my $class = "URI::file::" . ($os_class{$OS} || "Unix");
no strict 'refs';
- unless (defined %{"$class\::"}) {
+ unless (%{"$class\::"}) {
eval "require $class";
die $@ if $@;
}
diff -ur URI-1.03-old/URI.pm URI-1.03/URI.pm
--- URI-1.03-old/URI.pm Thu Jun 24 04:26:06 1999
+++ URI-1.03/URI.pm Sun Aug 1 13:36:28 1999
@@ -111,11 +111,11 @@
no strict 'refs';
# check we actually have one for the scheme:
- unless (defined @{"${ic}::ISA"}) {
+ unless (@{"${ic}::ISA"}) {
# Try to load it
eval "require $ic";
die $@ if $@ && $@ !~ /Can\'t locate.*in \@INC/;
- return unless defined @{"${ic}::ISA"};
+ return unless @{"${ic}::ISA"};
}
$ic->_init_implementor($scheme);