Skip Menu |
 

This queue is for tickets about the Win32-EventLog CPAN distribution.

Report information
The Basics
Id: 24326
Status: new
Priority: 0/
Queue: Win32-EventLog

People
Owner: Nobody in particular
Requestors: jeanc [...] cae.ca
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: Win32::EventLog 0.074 produces warning «Use of uninitialized value in unpack at C:/Perl/site/lib/Win32/EventLog.pm line 126.»
Download (untitled) / with headers
text/plain 1.2k
The Read() function in Win32::EventLog (Version 0.074) performs an unpack operation on an uninitialized value if there was a failure while reading the Event Log. This produces the warning «Use of uninitialized value in unpack at C:/Perl/site/lib/Win32/EventLog.pm line 126.» This could be fixed simply by initialising the $header variable I tested with success replacing the code: my $result = ReadEventLog($self->{handle}, $readflags, $recordoffset, my $header, my $source, my $computer, my $sid, my $data, my $strings); with: my $header = ""; my $result = ReadEventLog($self->{handle}, $readflags, $recordoffset, $header, my $source, my $computer, my $sid, my $data, my $strings); The problem can be reproduced with the following test: #!/usr/bin/perl -w use warnings; use strict; use Win32::EventLog; my $eventLog = Win32::EventLog->new('Application',Win32::NodeName())|| die $!; my %event = (); # Call read function with invalid parameter $eventLog->Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,-1,\%event); __END__ I used for this test: v5.8.4 ActiveState Binary build 810 and V5.8.8 ActiveState Binary build 819


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.