--- AnyEvent-HTTP/HTTP.pm	2008/06/12 11:56:09	1.21
+++ AnyEvent-HTTP/HTTP.pm	2008/06/28 21:17:03	1.22
@@ -50,7 +50,7 @@
 
 use base Exporter::;
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 our @EXPORT = qw(http_get http_post http_head http_request);
 
@@ -468,7 +468,8 @@
 }
 
 sub http_post($$@) {
-   unshift @_, "POST", "body";
+   my $url = shift;
+   unshift @_, "POST", $url, "body";
    &http_request
 }