The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Tk::TIFF;
require DynaLoader;
use Tk 800.014;
use Tk::Photo;

use vars qw($VERSION @ISA);
@ISA = qw(DynaLoader);

$VERSION = '0.10_51';

bootstrap Tk::TIFF $Tk::VERSION;

#
# There are now two new functions (which may change!!!):
#   # Get current value of global ContrastEnhance Flag.
#   $contrast_enhance = Tk::TIFF::getContrastEnhance();
#
#   # Set new value to true or false, returning new value.
#   $contrast_enhance = Tk::TIFF::setContrastEnhance(0|1);
#

1;
__END__