sub test{ my $params; $params = ref($_[0]) ? shift : {@_}; print Dumper($params); } [download]
In reply to Re: Parameter list wierdness by rir in thread Parameter list wierdness by CassJ