diff -r -wu orig/Perlbal-1.39/lib/Perlbal/HTTPHeaders.pm Perlbal-1.39/lib/Perlbal/HTTPHeaders.pm
--- orig/Perlbal-1.39/lib/Perlbal/HTTPHeaders.pm	2005-09-15 00:59:28.000000000 +0100
+++ Perlbal-1.39/lib/Perlbal/HTTPHeaders.pm	2006-01-06 17:59:06.219504664 +0000
@@ -218,8 +218,9 @@
 }
 
 sub request_uri {
-    my Perlbal::HTTPHeaders $self = shift;
-    return $self->{uri};
+    my Perlbal::HTTPHeaders $self = $_[0];
+    return $self->{uri} unless $_[1];
+    return $self->{uri} = $_[1];
 }
 
 sub version_number {