[rt.cpan.org #48006] Warnings from Win32::API::Struct

[Cosimo Streppone via RT]

Sun Jul 19 10:43:11 2009: Request 48006 was acted upon.
Transaction: Ticket created by COSIMO
       Queue: Win32-API
     Subject: Warnings from Win32::API::Struct
   Broken in: (no value)
    Severity: Normal
       Owner: COSIMO
  Requestors: kill...@multiplay.co.uk
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=48006 >


loads of warnings when using the module:

  return $self->{align} unless $self->{align} eq 'auto';
 
Should it be:

  return $self->{align} unless ! defined $self->{align} || $self->
{align} eq 'auto';

But not 100% sure?
 
In addition there are a number of debug lines which also cause loads
of warnings:
 
Struct.pm:221    DEBUG "(PM)Struct::getPack: $self->{__typedef__}
(buffer) = pack($packing, @items)\n";
Struct.pm:229    DEBUG "(PM)Struct::Pack: $self->{__typedef__}(buffer) 
= pack($packing, @$items)\n";
 
Hope this helps.
 
   Regards
   Steve