OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Thomas Lotterer
  Root:   /e/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-re                       Date:   14-Jul-2003 17:13:13
  Branch: HEAD                             Handle: 2003071416131200

  Modified files:
    openpkg-re              fsllint.pl

  Log:
    add comment header check

  Summary:
    Revision    Changes     Path
    1.2         +13 -0      openpkg-re/fsllint.pl
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-re/fsllint.pl
  ============================================================================
  $ cvs diff -u -r1.1 -r1.2 fsllint.pl
  --- openpkg-re/fsllint.pl     8 Jul 2003 07:42:27 -0000       1.1
  +++ openpkg-re/fsllint.pl     14 Jul 2003 15:13:12 -0000      1.2
  @@ -253,6 +253,19 @@
   
   sub check_comment {
       my ($file, $spec) = @_;
  +    my ($pkg);
  +
  +    #   determine package name
  +    $pkg = $file;
  +    $pkg =~ s|^.+/||;
  +    $pkg =~ s|^fsl\.||;
  +
  +    #   check comment header
  +    my $re = "";
  +    $re .= "##\\n##  fsl.$pkg -- OSSP fsl configuration\\n##\\n\\n";
  +    if ($spec !~ m|^$re|os) {
  +        &lint_warning($file, "", "", "invalid comment header (expected $re)");
  +    }
   
       #   check for comment indentation
       my $done .= $`; my $this = $&; my $todo = $';
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     [EMAIL PROTECTED]

Reply via email to