Or try use Win32 ();
seemed to help alleviate this as well. Same reason; I don't remember why.... :-( But I use it standard now. -----Original Message----- From: Tim Johnson [mailto:[EMAIL PROTECTED] Sent: Tuesday, October 28, 2003 10:54 AM To: '[EMAIL PROTECTED]'; [EMAIL PROTECTED] Subject: RE: Win32::GUI - Errors when I use Win32 module and the Win32::GUI module together I used to get this error when I used Win32 and Win32::Lanman. If I recall correctly I got around it by doing a 'require Win32' instead of 'use Win32'. I can't remember what the explanation for this behavior was. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Tuesday, October 28, 2003 5:57 AM To: [EMAIL PROTECTED] Subject: Win32::GUI - Errors when I use Win32 module and the Win32::GUI module together Whenever I import Win32 base module and the Win32::GUI module together I get the following hairy message (my code follows): ======================================================================== ==== ====== C:\temp>perl gyieproxy.pl Prototype mismatch: sub main::MB_ICONHAND vs () at C:/Perl/lib/Exporter.pm line 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONQUESTION vs () at C:/Perl/lib/Exporter.pm l ine 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONEXCLAMATION vs () at C:/Perl/lib/Exporter.p m line 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONASTERISK vs () at C:/Perl/lib/Exporter.pm l ine 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONWARNING vs () at C:/Perl/lib/Exporter.pm li ne 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONERROR vs () at C:/Perl/lib/Exporter.pm line 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONINFORMATION vs () at C:/Perl/lib/Exporter.p m line 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 Prototype mismatch: sub main::MB_ICONSTOP vs () at C:/Perl/lib/Exporter.pm line 57. Exporter::import('NULL', 'WIN31_CLASS', 'OWNER_SECURITY_INFORMATION', 'G ROUP_SECURITY_INFORMATION', 'DACL_SECURITY_INFORMATION', 'SACL_SECURITY_INFORMAT ION', 'MB_ICONHAND', 'MB_ICONQUESTION', ...) called at gyieproxy.pl line 54 main::BEGIN() called at C:/Perl/site/lib/Win32.pm line 54 eval {...} called at C:/Perl/site/lib/Win32.pm line 54 ^C C:\temp> ======================================================================== ==== ===================== Here is the code: ###################################### ## START ## Import Modules ## START ## ###################################### ##START## Set strict and high high warning options ##START## use strict; use warnings; ## END ## Set strict and high high warning options ## END ## ##START## Import base Win32 module ##START## use Win32; use Win32::GUI; ## END ## Import base Win32 module ## END ## ##START## Import modules required for temp folder cleanup ##START## use Cwd; use File::DosGlob 'glob'; use File::Path; use File::Copy; use File::Basename; ## END ## Import modules required for temp folder cleanup ## END ## ###################################### ## END ## Import Modules ## END ## ###################################### ======================================================================== ==== ======= Yet once again - can anyone help.... _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
