perl: Give error instead of crashing if optarg is not an array reference.

  $g->add_drive ("", server => 1);

would segfault.  Now it gives a nice error instead:

  array reference expected for 'server' argument at [line]
virt-win-reg: Allow URIs (RHBZ#912193).