sub arb_subtract_qty (\@) {
my ($verbs) = @_;
my $verb= shift @$verbs;
+ my $vqty= $verb->{Qty};
+ $vqty =~ s/^\>//;
unshift @$verbs, {
Stall => $verb->{Stall},
Price => $verb->{Price},
- Qty => $verb->{Qty} - $qty
+ Qty => $vqty - $qty
};
}
arb_subtract_qty(@buys);