-@{$cgi_var{found}} = map {makesourceversions($_,undef,@{$cgi_var{found}})} split/\s*,\s*/, $cgi_var{package};
-@{$cgi_var{fixed}} = map {makesourceversions($_,undef,@{$cgi_var{fixed}})} split/\s*,\s*/, $cgi_var{package};
-my @interesting_versions = map {makesourceversions($_,undef,keys %version_to_dist)} split/\s*,\s*/, $cgi_var{package};
+@{$cgi_var{found}} =
+ map {make_source_versions(package => $_,
+ versions => $cgi_var{found})}
+ split/\s*,\s*/, $cgi_var{package};
+@{$cgi_var{fixed}} =
+ map {make_source_versions(package =>$_,
+ versions => $cgi_var{fixed})}
+ split/\s*,\s*/, $cgi_var{package};
+my @interesting_versions =
+ map {make_source_versions(package => $_,
+ versions => [keys %version_to_dist])}
+ split/\s*,\s*/, $cgi_var{package};