# bad kludge, I haven't figured out how to handle this, but # if the query doesn't return anything, this function fails; if($query =~ /SELECT/i) { $return_data = $sth->fetchall_arrayref(); } #### sub update_price { # get reference to hash and algorithm for updating parts. my ($price, $price_algo) = @_; #TODO lookup return values for eval eval $price_algo or die( __LINE__ . "Err: $! \n$@\n"); return $price; } #### my %items = parse_input($options{u}, $parts_algo);