diff options
| -rw-r--r-- | devel/portlint/src/portlint.pl | 14 | ||||
| -rw-r--r-- | ports-mgmt/portlint/src/portlint.pl | 14 |
2 files changed, 4 insertions, 24 deletions
diff --git a/devel/portlint/src/portlint.pl b/devel/portlint/src/portlint.pl index c86ef300fe56..9def9545f34f 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 { diff --git a/ports-mgmt/portlint/src/portlint.pl b/ports-mgmt/portlint/src/portlint.pl index c86ef300fe56..9def9545f34f 100644 --- a/ports-mgmt/portlint/src/portlint.pl +++ b/ports-mgmt/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 { |