OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Ralf S. Engelschall
  Root:   /v/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-src                      Date:   25-Mar-2006 18:52:01
  Branch: HEAD                             Handle: 2006032517520100

  Modified files:
    openpkg-src/perl-www    perl-www.patch

  Log:
    ok, Class::ErrorHandler is now in perl-utils, too

  Summary:
    Revision    Changes     Path
    1.13        +0  -43     openpkg-src/perl-www/perl-www.patch
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-src/perl-www/perl-www.patch
  ============================================================================
  $ cvs diff -u -r1.12 -r1.13 perl-www.patch
  --- openpkg-src/perl-www/perl-www.patch       26 Feb 2006 19:42:50 -0000      
1.12
  +++ openpkg-src/perl-www/perl-www.patch       25 Mar 2006 17:52:01 -0000      
1.13
  @@ -22,46 +22,3 @@
    
        if (!$path || $path eq '.')
            {
  -Index: URI-Fetch-0.05/Makefile.PL
  ---- URI-Fetch-0.05/Makefile.PL.orig  2005-05-26 00:52:11 +0200
  -+++ URI-Fetch-0.05/Makefile.PL       2006-02-26 20:39:07 +0100
  -@@ -12,7 +12,6 @@
  - 
  - include('ExtUtils::AutoInstall');
  - 
  --requires('Class::ErrorHandler');
  - requires('LWP');
  - requires('URI');
  - requires('Storable'),
  -Index: URI-Fetch-0.05/lib/URI/Fetch.pm
  ---- URI-Fetch-0.05/lib/URI/Fetch.pm.orig     2006-02-24 22:18:38 +0100
  -+++ URI-Fetch-0.05/lib/URI/Fetch.pm  2006-02-26 20:39:07 +0100
  -@@ -2,7 +2,6 @@
  - 
  - package URI::Fetch;
  - use strict;
  --use base qw( Class::ErrorHandler );
  - 
  - use LWP::UserAgent;
  - use Carp qw( croak );
  -@@ -16,6 +15,20 @@
  -     $HAS_ZLIB = eval "use Compress::Zlib (); 1;";
  - }
  - 
  -+sub error {
  -+    my $msg = $_[1] || '';
  -+    if (ref($_[0])) {
  -+        $_[0]->{_errstr} = $msg;
  -+    } else {
  -+        $ERROR = $msg;
  -+    }
  -+    return;
  -+}
  -+
  -+sub errstr {
  -+    ref($_[0]) ? $_[0]->{_errstr} : $ERROR
  -+}
  -+
  - use constant URI_OK                => 200;
  - use constant URI_MOVED_PERMANENTLY => 301;
  - use constant URI_NOT_MODIFIED      => 304;
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     openpkg-cvs@openpkg.org

Reply via email to