Skip Menu |

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

Report information
The Basics
Id: 76850
Status: resolved
Priority: 0/
Queue: Win32-Exe
People
Owner: Nobody in particular
Requestors: Torsten.Werner [...] assyst.de
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Fri Apr 27 09:17:46 2012 Torsten.Werner [...] assyst.de - Ticket created
Subject: Bug in Win32::Exe 0.14, set_version_info
Date: Fri, 27 Apr 2012 15:17:25 +0200
To: bug-Win32-Exe [...] rt.cpan.org
From: Torsten.Werner [...] assyst.de
Hi, there is a small problem in Win32::Exe 0.14 In function set_version_info, line 514 is the following statement: if(ref($inputpairs eq 'HASH')) { I think it should be if(ref($inputpairs) eq 'HASH') { Some lines below: my @info = ($self->default_info, @$inputpairs); $inputpairs is a hash reference. should be my @info = ($self->default_info, @$inputref); It works for me with the change. Bye Torsten
  Fri Apr 27 10:16:31 2012 mdootson [...] cpan.org - Correspondence added
Indeed. It took me an age to spot it but it was fixed in 0.17 released July 2011. Now I see that I didn't note this in the CHANGES file so my apologies to you. Thanks very much for submitting the fix though. Regards Mark On Fri Apr 27 09:17:46 2012, Torsten.Werner@assyst.de wrote: Show quoted text
> Hi, > there is a small problem in Win32::Exe 0.14 > > In function set_version_info, line 514 is the following statement: > > if(ref($inputpairs eq 'HASH')) { > > I think it should be > > if(ref($inputpairs) eq 'HASH') { > > Some lines below: > > my @info = ($self->default_info, @$inputpairs); > > $inputpairs is a hash reference. should be > > my @info = ($self->default_info, @$inputref); > > It works for me with the change. > > Bye > Torsten >
  Fri Apr 27 10:16:32 2012 The RT System itself - Status changed from 'new' to 'open'
  Fri Apr 27 10:16:32 2012 mdootson [...] cpan.org - Status changed from 'open' to 'resolved'