#!/usr/bin/perl
use lib '/opt/perl5/perlbrew/bin/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0/darwin-2level';
use Tk;

##</code><code>##

package Tk::Event;
use vars qw($VERSION $XS_VERSION @EXPORT_OK);
END { CleanupGlue() } #it claims this is an undefined subroutine.....
$VERSION = '4.024'; # was: sprintf '4.%03d', q$Revision: #15 $ =~ /\D(\d+)\s*$/;
$XS_VERSION = '804.030';
$XS_VERSION = eval $XS_VERSION;
use base  qw(Exporter);
use XSLoader;
@EXPORT_OK = qw($XS_VERSION DONT_WAIT WINDOW_EVENTS  FILE_EVENTS
                TIMER_EVENTS IDLE_EVENTS ALL_EVENTS);
XSLoader::load 'Tk::Event',$XS_VERSION; # gives an error for this one as well...
require   Tk::Event::IO;
1;
__END__