w trillich (will@pinncomp.net) said something to this effect:
>  > while($domain = $sth->fetchrow_array)
>  >   {
>  >     $PerlConfig .= <<"CONFIG";
>  > <VirtualHost $ipAddr>
>  >     ServerName www.$domain
>  >     ServerAdmin webmaster@$domain
>  >     ServerAlias $domain
>  >     DocumentRoot $baseDir/www.$domain/htdocs/
>  > </VirtualHost>
>  > 
>  > CONFIG
>  >   }
>  
>  doesn't $sth->fetchrow_array() return a reference to an 
>  array, instead of a simple scalar?
>  	$row = $sth->fetchrow_array;
>  	foreach $col ( @$row ) { ... }
>  ?

fetchrow_array returns a list. fetchrow_arrayref returns a list ref.
if you call fetchrow_array and are expecting one results ('select foo
from bar') you can assign it a scalar.

darren

-- 
To do nothing is to be nothing.