/ 
Tk804.025_beta2
/ Tk
Security Advisories (5)
CVE-2006-4484 (2008-10-01)

Buffer overflow in the LWZReadByte_ function in the GD extension in allows remote attackers to have an unknown impact via a GIF file with input_code_size greater than MAX_LWZ_BITS, which triggers an overflow when initializing the table array.

CVE-2007-4769 (2008-01-09)

The regular expression parser in TCL before 8.4.17, as used in PostgreSQL 8.2 before 8.2.6, 8.1 before 8.1.11, 8.0 before 8.0.15, and 7.4 before 7.4.19, allows remote authenticated users to cause a denial of service (backend crash) via an out-of-bounds backref number.

CVE-2003-0107 (2003-03-07)

Buffer overflow in the gzprintf function in zlib 1.1.4, when zlib is compiled without vsnprintf or when long inputs are truncated using vsnprintf, allows attackers to cause a denial of service or possibly execute arbitrary code.

CVE-2007-4772 (2008-01-09)

The regular expression parser in TCL before 8.4.17, as used in PostgreSQL 8.2 before 8.2.6, 8.1 before 8.1.11, 8.0 before 8.0.15, and 7.4 before 7.4.19, allows context-dependent attackers to cause a denial of service (infinite loop) via a crafted regular expression.

CVE-2007-6067 (2008-01-09)

Algorithmic complexity vulnerability in the regular expression parser in TCL before 8.4.17, as used in PostgreSQL 8.2 before 8.2.6, 8.1 before 8.1.11, 8.0 before 8.0.15, and 7.4 before 7.4.19, allows remote authenticated users to cause a denial of service (memory consumption) via a crafted "complex" regular expression with doubly-nested states.

NAME

Tk - a graphical user interface toolkit for Perl

SYNOPSIS

use Tk;
$top = new MainWindow;
MainLoop;

DESCRIPTION

The Perl/Tk manual is split up into a number of sections:

END

my $no_link = 0;
foreach my $cat (@cat)
 {
  $no_link = ($cat =~ /C Programming/);
  print POD "=head2 $cat\n\n=over 4\n\n";
  foreach my $file (sort { lc($a) cmp lc($b) } @{$cat{$cat}})
   {
    my($base) = fileparse($file, ".(pod|pm)");
    if ($no_link)
     {
      print POD "=item *\n\n$base\n\n";
     }
    else
     {
      my $mod = "Tk::" . $base;
      print POD "=item *\n\nL<$mod|$mod>\n\n";
     }
   }
  print POD "=back\n\n";
 }

print POD <<END;

AUTHOR

Nick Ing-Simmons

SEE ALSO

perl(1), wish(1).