Re: Troubles when trying to use Tk conditionally

Try

BEGIN {
    *MainLoop = \&MainLoop;
}
[download]

near the top of your script (near the use statement), or plain

Mainloop();
[download]

instead of the current call.

Even though the function doesn't exist, if it isn't called, it won't complain.

Comment on Re: Troubles when trying to use Tk conditionally Select or Download Code

Replies are listed 'Best First'.
Re^2: Troubles when trying to use Tk conditionally by moritz (Cardinal) on Feb 04, 2011 at 15:19 UTC
`BEGIN { *MainLoop = \&MainLoop; }` [download] Or a bit less ugly (IMHO): `use vars qw/&MainLoop/;` [download] Perl 6 - second systems done right	[reply] [d/l] [select]
Re^3: Troubles when trying to use Tk conditionally by bart (Canon) on Feb 04, 2011 at 18:25 UTC
I had thought about that, but I was unsure that it works. There's also `use subs`.	[reply]