| Subject: | Serious typo in Shell.pm (which causes the shell to crash) |
Without the patch at the end, i'm getting this error:
C:\.cpan\build\WWW-Mechanize-Shell-0.39>perl -Ilib bin\wwwshell.pl
(no url)>get http://www.perl.com
Retrieving http://www.perl.com(200)
Can't call method "agent" on an undefined value at
lib/WWW/Mechanize/Shell.pm li
ne 310, <IN> line 1.
--- lib/WWW/Mechanize/Shell.pm 2007-01-17 23:34:46.515625000 +0800
+++ lib/WWW/Mechanize/Shell_patched.pm 2007-01-17 23:34:54.078125000 +0800
@@ -307,7 +307,7 @@
sub prompt_str {
my $self = shift;
if ($self->agent->response) {
- return ($_[0]->agent->uri || "") . ">"
+ return ($self->agent->uri || "") . ">"
} else {
return "(no url)>"
};