in reply to Re: Pesky warnings after calling Win32 API
in thread Pesky warnings after calling Win32 API

Thanks ikegami but that didn't fix the problem. I'm really freaked out by this cause I'm convinced that I'm doing something wrong but can't figure it out. Anyway, right now I'm just going to hide the warnings and get on with life. I hate doing this but I don't have much choice.

Thanks for replying.

  • Comment on Re^2: Pesky warnings after calling Win32 API

Replies are listed 'Best First'.
Re^3: Pesky warnings after calling Win32 API
by ikegami (Patriarch) on Sep 18, 2004 at 18:10 UTC
    So I decided to download Win32::API and run your code. My fix does indeed remove the warning at the line you mentioned. However, there are apparently more warnings, which are removed by the following: 
       my $MEMORYSTATUS = Win32::API::Struct->new('MEMORYSTATUS');
   { # Avoid warning at Struct.pm line 214
      $MEMORYSTATUS->align('auto');
   }
   { # Avoid all other warnings in Struct.pm
      $MEMORYSTATUS->{'dwLength'    } = 0;
      $MEMORYSTATUS->{'MemLoad'     } = 0;
      $MEMORYSTATUS->{'TotalPhys'   } = 0;
      $MEMORYSTATUS->{'AvailPhys'   } = 0;
      $MEMORYSTATUS->{'TotalPage'   } = 0;
      $MEMORYSTATUS->{'AvailPage'   } = 0;
      $MEMORYSTATUS->{'TotalVirtual'} = 0;
      $MEMORYSTATUS->{'AvailVirtual'} = 0;
   }

    [download]

    I'd like to correct myself regarding dwLength. The docs say Windows will set it for you. Very odd.

[reply]
[d/l]
      WICKED COOL!! You sir are a steely-eyed missle man!

      (or woman <sheepish grin> can't tell from your handle :-)

      Either way ikegami, I am much in your debt.

      Would you say that this is a bug in Struct.pm? Or at least a needed addition to the documentation?

      ...by the way did I say thanks? :-)

[reply]
        Your welcome. I'd say it's more a bug in the documentation of Struct.pm than in Struct.pm itself, although it's definitely a failing that fields that don't need to be initialized aren't -w friendly. It would be so easy for everything to be set to 0 by default or to silently treat undef as 0.
[reply]

In Section Seekers of Perl Wisdom