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
