Browse Source

Split on first '@' to avoid breaking directory detection.

PR:		260246
Submitted by:	Derek Schrock <dereks@lifeofadishwasher.com>
Joe Clarke 2 years ago
parent
commit
19b899118d
1 changed files with 2 additions and 3 deletions
  1. 2 3
      portlint.pl

+ 2 - 3
portlint.pl

@@ -1155,7 +1155,7 @@ sub check_depends_syntax {
 			if ($k eq '') {
 				next;
 			}
-			my $tmp_depends = $k;
+			my ($tmp_depends, $fl) = split(/\@/, $k);
 			$tmp_depends =~ s/\$\{[^}]+}//g;
 			my @l = split(':', $tmp_depends);
 
@@ -1176,8 +1176,7 @@ sub check_depends_syntax {
 			}
 			my %m = ();
 			$m{'dep'} = $l[0];
-			my ($di, $fl) = split(/\@/, $l[1]);
-			$m{'dir'} = $di;
+			$m{'dir'} = $l[1];
 			$m{'fla'} = $fl // '';
 			$m{'tgt'} = $l[2] // '';
 			my %depmvars = ();