All,
I'm having a strange problem using the function
Win32::AdminMisc::GetFileInfo. For most files it seems to work fine, but by
simply changing the filename, I can get Perl to crash. Here's are the
minimal code samples to reproduce the problem:
----------8<----------WORKING CODE---------->8----------
use Win32::AdminMisc;
if( Win32::AdminMisc::GetFileInfo( "c:\\winnt\\system32\\kernel32.dll",
\%Info )) {
print "$Info{FileVersion}\n";
}
----------8<----------WORKING CODE---------->8----------
----------8<----------CRASHING CODE---------->8----------
use Win32::AdminMisc;
if( Win32::AdminMisc::GetFileInfo( "c:\\winnt\\system32\\dbmslpcn.dll",
\%Info )) {
print "$Info{FileVersion}\n";
}
----------8<----------CRASHING CODE---------->8----------
The first piece of code simply prints 5.00.2195.6079. The second displays a
dialog box with the following information:
----------8<----------DIALOG BOX---------->8----------
perl.exe - Application Error
The instruction at "0x100014a9" referenced memory at "0x01c3c9dc". The
memory could not be "read".
Click on OK to terminate the program
Click on CANCEL to debug the program
----------8<----------DIALOG BOX---------->8----------
Here's my perl -v:
----------8<----------PERL -v---------->8----------
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2001, Larry Wall
Binary build 633 provided by ActiveState Corp. http://www.ActiveState.com
Built 21:33:05 Jun 17 2002
<SNIP>
----------8<----------PERL -v---------->8----------
Here's the info on my Win32::AdminMisc package:
----------8<----------Win32::AdminMisc---------->8----------
ppm> prop Win32-AdminMisc
====================
Name: Win32-AdminMisc
Version: 0.2000.07.08
Author: Roth Consulting (http://www.roth.net/)
Title: Win32::AdminMisc
Abstract: The Win32::AdminMisc extension for Win32 X86
InstDate: Fri Dec 6 15:20:10 2002
Location: http://www.roth.net/perl/packages
Available Platforms:
1. MSWin32-x86
2. MSWin32-x86-multi-thread
3. MSWin32-x86-object
====================
----------8<----------Win32::AdminMisc---------->8----------
Has anyone seen this before? I hope I haven't buried the problem in the
troubleshooting information!
Chris
LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential and may be privileged.
It is intended for the addressee(s) only. Access to this E-mail by anyone else is
unauthorized. If you are not an addressee, any disclosure or copying of the contents
of this E-mail or any action taken (or not taken) in reliance on it is unauthorized
and may be unlawful. If you are not an addressee, please inform the sender immediately.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
