<pre>Can't call method "value" on an undefined value at E:/software/co
de/_perl/active_perl/site/lib/Win32/IE/Mechanize.pm line 377.
</pre>
Sun Dec 19 13:16:13 2004abeltje [...] cpan.org - Taken
Sun Dec 19 13:32:36 2004abeltje [...] cpan.org - Correspondence added
[guest - Sun Dec 19 10:54:58 2004]:
Show quoted text
> <pre>Can't call method "value" on an undefined value at
> E:/software/co
> de/_perl/active_perl/site/lib/Win32/IE/Mechanize.pm line 377.
> </pre>
It looks like you called set_fields() with an unknown field-name.
I agree it's not good to just die, but what do you suggest for this case?
I'll also check how WWW::Mechanize handles this...
Thanks for your report +
Good luck,
Abe
Sun Dec 19 13:32:37 2004abeltje [...] cpan.org - Status changed from 'new' to 'open'
Tue Jan 25 04:51:26 2005Guest - Correspondence added
From:
mkirank
I get a similar error ,also one test fails when i do a nmake test
(t\find_link.........FAILED test 60)
<br>
<pre>
Can't call method "find_input" on an undefined value at
C:/Perl/site/lib/Win32/I
E/Mechanize.pm line 914.
<br>
The code that is use is
$agent->get("http://testserver/cgi/login1.cgi");
$agent->form_name( "FORM1" );
$agent->submit_form(
form_name => "FORM1",
fields => {
F2 => 'asdf',
F1 => 'mkirank'
},
);
</pre>
Tue Jan 25 07:02:42 2005Guest - Correspondence added
From:
mkirank
Following with the reply i had posted earlier , I ran the program with
perl in the debug mode, the problem seems to be in the DESTROY
subroutine
<pre>
Win32::IE::Mechanize::submit_form
(C:/Perl/site/lib/Win32/IE/Mechanize.pm:1239):
1239: return $self->success;
DB<6> n
Win32::IE::Mechanize::DESTROY
(C:/Perl/site/lib/Win32/IE/Mechanize.pm:1418):
1418: my $agent = shift->{agent};
DB<6> n
Win32::IE::Mechanize::DESTROY
(C:/Perl/site/lib/Win32/IE/Mechanize.pm:1419):
1419: $agent && !$agent->{visible} and $agent->quit;
DB<6> n
Win32::OLE::Tie::FETCH(C:/Perl/site/lib/Win32/OLE/Lite.pm:211):
211: my ($self,$key) = @_;
DB<6> n
Win32::OLE::Tie::FETCH(C:/Perl/site/lib/Win32/OLE/Lite.pm:212):
212: if ($key eq "_NewEnum") {
DB<6> n
Win32::OLE::Tie::FETCH(C:/Perl/site/lib/Win32/OLE/Lite.pm:216):
216: $self->Fetch($key, !$Win32::OLE::Strict);
DB<6> n
DynaLoader::CODE(0x1ce60b4)((eval 2)[C:/Perl/lib/DynaLoader.pm:225]:1):
1: END { Win32::OLE->Uninitialize(305414945); }
DB<6> n
Debugged program terminated. Use q to quit or R to restart,
use O inhibit_exit to avoid stopping after program termination,
h q, h R or h O to get additional info.
DB<6>
</pre>
RT for rt.cpan.org