View | Details | Raw Unified | Return to bug 27294
Collapse All | Expand All

(-)pkg_update.pl (-1 / +1 lines)
Lines 52-58 Link Here
52 
sub get_version($) {
 52 
sub get_version($) {
53 
	my ($pkg) = @_;
 53 
	my ($pkg) = @_;
54 

          54
          

        

          
            

              55
              
	$pkg =~ /(.+)-([0-9\.]+)/;


              55
              
	$pkg =~ /(.+)-([0-9(?\.|_|,)]+)/;

            

        

          56
          
	if (! $2) {

          56
          
	if (! $2) {

        

        

          57
          
		return($pkg, "");

          57
          
		return($pkg, "");

        

        

          58
          
	} else {

          58
          
	} else {

        






  

  Return to bug 27294