in reply to Parameter list wierdness

try replacing
ref($_[0]) ? $params = shift : $params = {@_};
with
$params = ref($_[0]) ? shift : {@_};

Dave.

update:

Note that your line was getting parsed as

(ref($_[0]) ? $params = shift : $params) = {@_};

Replies are listed 'Best First'.
Re^2: Parameter list wierdness
by CassJ (Sexton) on Jul 02, 2004 at 01:17 UTC
    Thanks for the explanation. That's what I get for only reading the first line of the description in perlop. Sorry!

    Cass