Re: Mysterious net::telnet error


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Mysterious net::telnet error

by dmckee (Scribe)

on Mar 11, 2001 at 20:30 UTC ( [id://63621]=note: print w/replies, xml )

Need Help??

in reply to Mysterious net::telnet error

sub _optimal_blksize {
    my ($blksize) = @_;

    return $blksize   ## LINE 2569
    if defined $blksize and $blksize > 0 and $blksize <= 1_048_576;

    8192;
} # end sub _optimal_blksize
[download]

Added at the request of arhuman

Why the hell have eight (now nine) people ++'d this?? I can understand upvoting the root Q, but not this!

Comment on Re: Mysterious net::telnet error Download Code

Replies are listed 'Best First'.

(tye)Re: Mysterious net::telnet error
by tye (Sage) on Mar 12, 2001 at 03:11 UTC

Someone is calling _optimal_blksize("").

The fastest way I know to find this is to add -d to the Perl command line so the debugger runs then type "c" at the debugger prompt. This will cause you to get a stack backtrace when a warning happens, which is usually enough to track down the source of the bug.

I wish the debugger had an option to break on warnings. It would be easy to hack that option in by having dbwarn() check if the warnLevel option is greater than 1 and, if so, force $single= 1 when it is finished. I'll try to find time to send in a patch for that. (:

I suspect (and hope) that there is a module that provides stack backtraces for warnings via a simple -Mmodule=option command-line switch to Perl, but I'm not aware of one.

tye

[reply]
[d/l]

In Section Seekers of Perl Wisdom