Improve --result option heuristic

Args starting with '.' can't be a package or a code.
openSUSE · Oct 11, 2024 · 5cb7aba · 5cb7aba
1 parent 3183f2b
commit 5cb7aba
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/PBuild/Options.pm b/PBuild/Options.pm
@@ -142,8 +142,8 @@ sub vm_type_special {
   my ($opts, $opt, $origopt, $args) = @_;
   my $arg;
   $arg = Build::Options::getarg($origopt, $args, 1) unless $opt eq 'zvm' || $opt eq 'lxc';
-  $opts->{'vm-disk'} = $arg if defined $arg;
   $opts->{'vm-type'} = $opt;
+  $opts->{'vm-disk'} = $arg if defined $arg;
 }
 
 sub ccache_special {
@@ -160,7 +160,7 @@ my %known_codes = map {$_ => 1} @codes;
 sub result_rebuild_special {
   my ($opts, $opt, $origopt, $args) = @_;
   my $arg;
-  $arg = Build::Options::getarg($origopt, $args, 1) if @$args && (ref($args->[0]) || $args->[0] !~ /\//);
+  $arg = Build::Options::getarg($origopt, $args, 1) if @$args && (ref($args->[0]) || $args->[0] !~ /^\.|\//);
   if (!defined($arg) || $arg eq 'all') {
     push @{$opts->{"$opt-code"}}, 'all';
   } elsif ($known_codes{$arg}) {