|
deane --
this is just a wag (i'm not familiar with the modules involved), but i
suspect that $services is not an array reference (well, that's what the error
message seems to say, anyway).
so, what is it?
try the q&d debug statement
print $services;
if the $objWMIServices->ExecQuery() call is returning an
array (rather than an array reference), then the assignment in scalar
context of its return will be the number of elements in the array.
if it is returning a blessed object reference, this, too, should be obvious
when printed.
print statement prints:
array: 42 (elements in array)
array reference: ARRAY(0x1234ab)
hash reference: HASH(0x1111cd)
object reference (blessed array reference):
object_name=ARRAY(0x9876ef)
usw
hth -- bill walters
|
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
