diff --git a/.cvsignore b/.cvsignore
index d50192a..48d90b5 100644
--- a/.cvsignore
+++ b/.cvsignore
@@ -1 +1 @@
-libwww-perl-5.817.tar.gz
+libwww-perl-5.823.tar.gz
diff --git a/perl-libwww-perl-5.817-skip-message-tests.patch b/perl-libwww-perl-5.817-skip-message-tests.patch
deleted file mode 100644
index 5aad12b..0000000
--- a/perl-libwww-perl-5.817-skip-message-tests.patch
+++ /dev/null
@@ -1,71 +0,0 @@
-diff -up libwww-perl-5.817/t/base/message.t.ccc libwww-perl-5.817/t/base/message.t
---- libwww-perl-5.817/t/base/message.t.ccc	2008-10-07 12:36:42.000000000 +0200
-+++ libwww-perl-5.817/t/base/message.t	2008-10-13 10:49:52.000000000 +0200
-@@ -3,7 +3,7 @@
- use strict;
- use Test qw(plan ok skip);
- 
--plan tests => 110;
-+plan tests => 103;
- 
- require HTTP::Message;
- use Config qw(%Config);
-@@ -49,7 +49,7 @@ ok($m->as_string, "\nfoo\n");
- $m = HTTP::Message->parse("foo: 1");
- ok($m->as_string, "Foo: 1\n\n");
- $m = HTTP::Message->parse("foo_bar: 1");
--ok($m->as_string, "Foo_bar: 1\n\n");
-+#ok($m->as_string, "Foo_bar: 1\n\n");
- $m = HTTP::Message->parse("foo: 1\n\nfoo");
- ok($m->as_string, "Foo: 1\n\nfoo\n");
- $m = HTTP::Message->parse(<<EOT);
-@@ -360,22 +360,22 @@ $m->content("H4sICFWAq0ECA3h4eAB7v3u/R6Z
- my $NO_ENCODE = $] < 5.008 || ($Config{'extensions'} !~ /\bEncode\b/)
-     ? "No Encode module" : "";
- $@ = "";
--skip($NO_ENCODE, sub { eval { $m->decoded_content } }, "\x{FEFF}Hi there \x{263A}\n");
-+#skip($NO_ENCODE, sub { eval { $m->decoded_content } }, "\x{FEFF}Hi there \x{263A}\n");
- ok($@ || "", "");
- ok($m->content, "H4sICFWAq0ECA3h4eAB7v3u/R6ZCSUZqUarCoxm7uAAZKHXiEAAAAA==\n");
- 
- $m2 = $m->clone;
--ok($m2->decode);
--ok($m2->header("Content-Encoding"), undef);
--ok($m2->content, qr/Hi there/);
-+#ok($m2->decode);
-+#ok($m2->header("Content-Encoding"), undef);
-+#ok($m2->content, qr/Hi there/);
- 
--ok(grep { $_ eq "gzip" } $m->decodable);
-+#ok(grep { $_ eq "gzip" } $m->decodable);
- 
- my $tmp = MIME::Base64::decode($m->content);
- $m->content($tmp);
- $m->header("Content-Encoding", "gzip");
- $@ = "";
--skip($NO_ENCODE, sub { eval { $m->decoded_content } }, "\x{FEFF}Hi there \x{263A}\n");
-+#skip($NO_ENCODE, sub { eval { $m->decoded_content } }, "\x{FEFF}Hi there \x{263A}\n");
- ok($@ || "", "");
- ok($m->content, $tmp);
- 
-diff -up libwww-perl-5.817/t/base/request.t.ccc libwww-perl-5.817/t/base/request.t
---- libwww-perl-5.817/t/base/request.t.ccc	2008-09-30 12:21:47.000000000 +0200
-+++ libwww-perl-5.817/t/base/request.t	2008-10-13 10:50:05.000000000 +0200
-@@ -4,7 +4,7 @@
- use strict;
- 
- use Test;
--plan tests => 11;
-+plan tests => 10;
- 
- use HTTP::Request;
- 
-@@ -13,7 +13,7 @@ $req->accept_decodable;
- 
- ok($req->method, "GET");
- ok($req->uri, "http://www.example.com");
--ok($req->header("Accept-Encoding") =~ /\bgzip\b/);  # assuming Compress::Zlib is there
-+#ok($req->header("Accept-Encoding") =~ /\bgzip\b/);  # assuming Compress::Zlib is there
- 
- ($_ = $req->as_string) =~ s/^/# /gm;
- print;
diff --git a/perl-libwww-perl.spec b/perl-libwww-perl.spec
index 3f512db..e8b771a 100644
--- a/perl-libwww-perl.spec
+++ b/perl-libwww-perl.spec
@@ -1,5 +1,5 @@
 Name:           perl-libwww-perl
-Version:        5.817
+Version:        5.823
 Release:        1%{?dist}
 Summary:        A Perl interface to the World-Wide Web
 
@@ -8,13 +8,6 @@ License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/libwww-perl/
 Source0:        http://www.cpan.org/authors/id/G/GA/GAAS/libwww-perl-%{version}.tar.gz
 
-# Patch to skip some tests, because they fail in mock for some reason.
-# If someone can figure out why, we can enable them again.  Since the
-# previous versions just skipped all the tests, I don't feel so bad
-# about being lazy and skipping these instead of figuring out why they
-# fail in mock and not on my box.
-Patch1:         perl-libwww-perl-5.817-skip-message-tests.patch
-Patch2:         rt-38736_taint.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch:      noarch
@@ -37,7 +30,7 @@ help you implement simple HTTP servers.
 
 %prep
 %setup -q -n libwww-perl-%{version} 
-%patch1 -p1
+
 
 # Filter unwanted Provides:
 cat << \EOF > %{name}-prov
@@ -114,6 +107,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Thu Jan 22 2009 Marcela Mašláňová <mmaslano@redhat.com> 5.823-1
+- update to 5.823
+
 * Mon Oct 10 2008 Marcela Mašláňová <mmaslano@redhat.com> 5.817-1
 - update to 5.817
 
diff --git a/rt-38736_taint.patch b/rt-38736_taint.patch
deleted file mode 100644
index d68ce63..0000000
--- a/rt-38736_taint.patch
+++ /dev/null
@@ -1,12 +0,0 @@
-diff -up libwww-perl-5.816/lib/HTTP/Message.pm.ooo libwww-perl-5.816/lib/HTTP/Message.pm
---- libwww-perl-5.816/lib/HTTP/Message.pm.ooo	2008-10-07 10:47:51.000000000 +0200
-+++ libwww-perl-5.816/lib/HTTP/Message.pm	2008-10-07 10:50:18.000000000 +0200
-@@ -410,7 +410,7 @@ sub AUTOLOAD
-     # We create the function here so that it will not need to be
-     # autoloaded the next time.
-     no strict 'refs';
--    *$method = eval "sub { shift->{'_headers'}->$method(\@_) }";
-+    *$method = sub { shift->{'_headers'}->$method(@_) };
-     goto &$method;
- }
- 
diff --git a/sources b/sources
index a165468..d9dea62 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-076a83d6e5678b84c0dd3c9526686485  libwww-perl-5.817.tar.gz
+9e1d2039e5ed9ed5e0783c2c1c33db8f  libwww-perl-5.823.tar.gz