On Saturday 20 September 2003 04:46 pm, Gisle Aas wrote:
> David Sanders <[EMAIL PROTECTED]> writes:
> > Under the debugger it just hangs also; here is a test case:
> >
> > Microsoft Windows XP [Version 5.1.2600]
> > (C) Copyright 1985-2001 Microsoft Corp.
>
> Where did this text come from. My machine says it is "Microsoft
> Windows XP, Home edition, Versjon 2002, Service Pack 1". A bit
> strange that the word "Version" was spelled in Norwegian :)
Its the "pro" edition.
>
> > main::(test5.pl:8): my @output = get("http://www.sandersweb.net/";);
> > DB<1> n
> > (hangs at this point)
>
> So, you need to step into the function to find out which part hangs.
> The 's' command in the debugger does that.
>
> Regards,
> Gisle
Thanks, here is where it hangs:
LWP::Simple::_trivial_http_get(c:/Perl/site/lib/LWP/Simple.pm:311):
311: print $sock join("\015\012" =>
312: "GET $path HTTP/1.0",
313: "Host: $netloc",
314: "User-Agent: lwp-trivial/$VERSION",
315: "", "");
DB<1> n
LWP::Simple::_trivial_http_get(c:/Perl/site/lib/LWP/Simple.pm:317):
317: my $buf = "";
DB<1> n
LWP::Simple::_trivial_http_get(c:/Perl/site/lib/LWP/Simple.pm:318):
318: my $n;
DB<1> n
LWP::Simple::_trivial_http_get(c:/Perl/site/lib/LWP/Simple.pm:319):
319: 1 while $n = sysread($sock, $buf, 8*1024, length($buf));
DB<1> s
--
David
[EMAIL PROTECTED]
