Subject: | get() doesn't work with relativte urls |
This following patch will allow get() to resolve relative urls if supplied. Looks like an oversite or typo.
-Brook
*** Automate.pm.orig Mon Sep 2 15:02:11 2002
--- Automate.pm Mon Sep 2 15:02:41 2002
***************
*** 128,134 ****
sub get {
my ($self, $uri) = @_;
! $self->{uri} = URI->new_abs($uri, $base);
$self->{req} = HTTP::Request->new(GET => $uri);
$self->do_request();
}
--- 128,134 ----
sub get {
my ($self, $uri) = @_;
! $self->{uri} = URI->new_abs($uri, $self->{base});
$self->{req} = HTTP::Request->new(GET => $uri);
$self->do_request();
}