On 12/1/2010 5:04 μμ, Ben Morrow wrote:
From activeperl's faq, other variants use some other technique maybe ?
BEGIN {
my ($DOS) = Win32::GUI::GetPerlWindow();
#hide console window
if ( $DOS ) {
Win32::GUI::Hide($DOS) unless ($ARGV[0] eq '--keep');
}
This part is unnecessary if you already have a GUI executable (there
will be no 'main' console window), which means you don't need to load
WIn32::GUI.
That's right , but I like to use it for debugging some times :-) see the
--keep to keep the console active :-)