Re: Perl 5.00322 and libwww5.05

Martijn Koster (m.koster@webcrawler.com)
Sun, 19 Jan 1997 09:15:33 -0800 (PST) 

At 8:01 PM 1/17/97, Seth M. Landsman wrote:

>        I have just compiled libwww5.05 on perl5.00322 on a Linux 2.0.28
>system.  Running make test, I get :  Failed 5/18 tests, 72.22%

Welcome to the bleeding edge :-/ Randal came up with a patch which seems
to help a lot, but there are still problems, discussed in other threads
here and on perl-porters. Life is moving fast...

If you want a stable perl, stick with /5.003$/. I for sure am not running
_22 on our production systems :-)


Randal's patch didn't apply cleanly for me, so here it is regenerated:

*** libwww-perl-5.05.orig/lib/URI/URL.pm  Sun Jan 19 07:21:29 1997
--- libwww-perl-5.05/lib/URI/URL.pm       Sun Jan 19 07:42:03 1997
***************
*** 1,6 ****
  package URI::URL;

! $VERSION = "4.08";   # $Date: 1996/12/04 15:12:53 $
  sub Version { $VERSION; }

  require 5.002;
--- 1,6 ----
  package URI::URL;

! $VERSION = "4.08_01";   # $Date: 1996/12/04 15:12:53 $
  sub Version { $VERSION; }

  require 5.002;
***************
*** 28,34 ****
  use vars qw($reserved $reserved_no_slash $reserved_no_form $unsafe
            $COMPAT_VER_3
            $Debug $Strict_URL
-           %OVERLOAD
           );

  $reserved          = ";\\/?:\\@&=#%"; # RFC 1738 reserved pluss '#' and '%'
--- 28,33 ----
***************
*** 43,52 ****
  $COMPAT_VER_3  = 0;     # should we try to behave in the old way
  $Strict_URL    = 0;     # see new()

! # Should really use the new 'use overload' interface, but since
! # we fake inheritance of %OVERLOAD in _init_implementor() we keep
! # it for now.
! %OVERLOAD = ( '""' => 'as_string', 'fallback' => 1 );

  my %Implementor = (); # mapping from scheme to implementation class

--- 42,48 ----
  $COMPAT_VER_3  = 0;     # should we try to behave in the old way
  $Strict_URL    = 0;     # see new()

! use overload ( '""' => 'as_string', 'fallback' => 1 );

  my %Implementor = (); # mapping from scheme to implementation class

***************
*** 179,185 ****
      no strict qw(refs);
      # Setup overloading - experimental
      %{"${class}::OVERLOAD"} = %URI::URL::OVERLOAD
!       unless defined %{"${class}::OVERLOAD"};
  }


--- 175,181 ----
      no strict qw(refs);
      # Setup overloading - experimental
      %{"${class}::OVERLOAD"} = %URI::URL::OVERLOAD
!       unless defined %{"${class}::OVERLOAD"} or $] >= 5.003_17;
  }

-- Martijn

Email: m.koster@webcrawler.com
WWW: http://info.webcrawler.com/mak/mak.html