oops...
This is better:
CACHE: {
$db = dbref($ctable)
or last CACHE;
my $tname = $db->name();
$cache = 1;
+ $weight = ($weight == int $weight) ? $weight :
int($weight + 1);
%cline = (
weight => $weight,
origin => $origin,
country => $country,
zip => $zip,
shipmode => $opt->{service},
);
Comments?