issue a warning when @owner or @group are found in the PLIST

1 files changed, 2 insertions, 12 deletions

diff --git a/devel/portlint/src/portlint.pl b/devel/portlint/src/portlint.pl
index c86ef30..9def954 100644
--- a/devel/portlint/src/portlint.pl
+++ b/devel/portlint/src/portlint.pl
@@ -280,18 +280,8 @@ sub checkplist {
 				}
 			} elsif ($_ =~ /^\@(comment)/) {
 				$rcsidseen++ if (/\$$rcsidstr[:\$]/);
-			} elsif ($_ =~ /^\@(owner|group)\s+$/) {
-				&perror("WARN: $_ missing name in PLIST");
-			} elsif ($_ =~ /^\@(owner)(\s+)(.*)/) {
-				$space = $2;
-				$user = $3;
-				&perror("WARN: multiple spaces found in \"$_\"") if ($space =~ /\s\s+/);
-				&perror("WARN: \"$user\" unknown user in PLIST") if (getpwnam($user) eq "");
-			} elsif ($_ =~ /^\@(group)(\s+)(.*)/) {
-				$space = $2;
-				$group = $3;
-				&perror("WARN: multiple spaces found in \"$_\"") if ($space =~ /\s\s+/);
-				&perror("WARN: \"$group\" unknown group in PLIST") if (getgrnam($group) eq "");
+			} elsif ($_ =~ /^\@(owner|group)\s/) {
+				&perror("WARN: \@$1 should not be needed in PLIST");
 			} elsif ($_ =~ /^\@(dirrm|option)/) {
 				; # no check made
 			} else {