http://qs1969.pair.com?node_id=63621


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
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!

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 (but my friends call me "Tye")