Thanks - the:
use Win32 ();
worked immediatley ;-)
Jonathan Hughes
Tech Support Specialist
Goodyear South Africa
"MJG"
<[EMAIL PROTECTED] To: <[EMAIL PROTECTED]>, <[EMAIL
PROTECTED]>
info> cc:
Subject: RE: Win32::GUI - Errors when I
use Win32 module and the Win32::GUI module
2003/10/28 03:15 together
PM
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
