#4 Fails to compile with Perl 4.8.4

[Robert Lindley]

ptkdb.pm script fails to run when I changed from
version 4.8.0 to 4.8.4 of PERL.

Problem appears to be due to the new version of PERL
being much more critical about the TK statement
parameter tags. It wants them all to be in the
-something fromat. This script had them at least three
different formats. This worked OK with the prior
version of perl.

Also, with the previous version of PERL, it was hard to
use the terminal window for print messages because it
was always filled with warning messages. These were due
to $DB::window->{'subs_list_cnt'} not being defined.
Added the following at about line 4060 to eliminate the
warning messages:

unless(defined $DB::window->{'subs_list_cnt'}) {
$DB::window->{'subs_list_cnt'} = 0; }

Encllosed is a modified script that has these changes
and works with PERL 4.8.4.

Bob Lindley
robert.a.lindley@boeing.com

[Robert Lindley]

Modified PERL module

[Svetoslav Marinov]

Logged In: YES
user_id=317337
Originator: NO

Perl versions 5.0.4 or above are supported.