View | Details | Raw Unified
Collapse All | Expand All

(-) /usr/bin/epm (-3 / +9 lines)
 Lines 404-415    Link Here  
	# must have been populated by, for instance, -qf
	# must have been populated by, for instance, -qf
    }
    }
    else {
    else {
	for my $a (@ARGV) {
 
	USERARG: for my $a (@ARGV) {
 
	    if ($a =~ /$pkgregex/o) {
	    if ($a =~ /$pkgregex/o) {
		verb "$a matches pkgregex";
		verb "$a matches pkgregex";
		vverb "name=$1, version=$2, suffix=$3, revision=$4";
		vverb "name=$1, version=$2, suffix=$3, revision=$4";
		push @pkgs, $a;
 
		# user has asked for specific version, check if any installed version matches
 
		next;
 
		for my $pver (@{$dnampkg{$1}}) {
 

              
			vverb "found version: $pver";

            

            

              

              
			if ($pver eq $a) {

            

            

              

              
				push @pkgs, $a;

            

            

              

              
				next USERARG;

            

            

              

              
			}

            

            

              

              
		}

            

        
	    }
	    }

        
	    if (defined $dnampkg{$a}) {
	    if (defined $dnampkg{$a}) {

        
		verb "$a found in dnampkg";
		verb "$a found in dnampkg";