LWP and 5.005_58

• Messages sorted by: [ date ][ thread ][ subject ][ author ]
• Next message: Nathan Torkington: "Replacement patch for 5.005_58"
• Previous message: jack velte: "Re: LWP & threads...."

Perl 5.005_58 has added a new warning, one which is emitted by a
surprising amount of old code.  The warning is on
  defined(@array)
and
  defined(%hash)

I've enclosed a patch for libwwww-perl 5.44.

Cheers;

Nat

diff -ur libwww-perl-5.44-old/lib/LWP/Protocol.pm libwww-perl-5.44/lib/LWP/Protocol.pm
--- libwww-perl-5.44-old/lib/LWP/Protocol.pm	Fri Jun 18 17:05:14 1999
+++ libwww-perl-5.44/lib/LWP/Protocol.pm	Sun Aug  1 12:59:09 1999
@@ -114,7 +114,7 @@
     $ic = "LWP::Protocol::nntp" if $scheme eq 'news'; #XXX ugly hack
     no strict 'refs';
     # check we actually have one for the scheme:
-    unless (defined @{"${ic}::ISA"}) {
+    unless (@{"${ic}::ISA"}) {
 	# try to autoload it
 	eval "require $ic";
 	if ($@) {
diff -ur libwww-perl-5.44-old/lib/LWP/UserAgent.pm libwww-perl-5.44/lib/LWP/UserAgent.pm
--- libwww-perl-5.44-old/lib/LWP/UserAgent.pm	Fri Jun 25 02:54:50 1999
+++ libwww-perl-5.44/lib/LWP/UserAgent.pm	Sun Aug  1 12:58:31 1999
@@ -323,7 +323,7 @@
 	$class =~ s/-/_/g;
 	
 	no strict 'refs';
-	unless (defined %{"$class\::"}) {
+	unless (%{"$class\::"}) {
 	    # try to load it
 	    eval "require $class";
 	    if ($@) {

• Next message: Nathan Torkington: "Replacement patch for 5.005_58"
• Previous message: jack velte: "Re: LWP & threads...."