- my $recur_charge += $pkg_base_recur * ( $pkg_end - $pkg_start )
- / ( $prorate_sdate - $last_bill );
+
+ my $pkg_recur_charge = $prorate_ratio * $pkg_base_recur;
+ $pkg_recur_charge *= ( $pkg_end - $pkg_start )
+ / ( $$sdate - $last_bill )
+ unless $self->option('no_pkg_prorate');
+
+ my $recur_charge += $pkg_recur_charge;