lkml.org 
[lkml]   [2008]   [Aug]   [11]   [last100]   RSS Feed
Views: [wrap][no wrap]   [headers]  [forward] 
 
Messages in this thread
    Patch in this message
    /
    From
    Subject[PATCH 16/17] checkpatch: perform indent checks on perl
    Date
    So that we eat our own dog food ensure the indent checks apply to perl too.

    Signed-off-by: Andy Whitcroft <apw@shadowen.org>
    ---
    scripts/checkpatch.pl | 7 +++++--
    1 files changed, 5 insertions(+), 2 deletions(-)

    diff --git a/scripts/checkpatch.pl b/scripts/checkpatch.pl
    index 36825c3..ba677c1 100755
    --- a/scripts/checkpatch.pl
    +++ b/scripts/checkpatch.pl
    @@ -1266,8 +1266,8 @@ sub process {
    WARN("adding a line without newline at end of file\n" . $herecurr);
    }

    -# check we are in a valid source file *.[hc] if not then ignore this hunk
    - next if ($realfile !~ /\.[hc]$/);
    +# check we are in a valid source file C or perl if not then ignore this hunk
    + next if ($realfile !~ /\.(h|c|pl)$/);

    # at the beginning of a line any tabs must come first and anything
    # more than 8 must use tabs.
    @@ -1277,6 +1277,9 @@ sub process {
    ERROR("code indent should use tabs where possible\n" . $herevet);
    }

    +# check we are in a valid C source file if not then ignore this hunk
    + next if ($realfile !~ /\.(h|c)$/);
    +
    # check for RCS/CVS revision markers
    if ($rawline =~ /^\+.*\$(Revision|Log|Id)(?:\$|)/) {
    WARN("CVS style keyword markers, these will _not_ be updated\n". $herecurr);
    --
    1.6.0.rc1.258.g80295


    \
     
     \ /
      Last update: 2008-08-11 22:23    [W:0.021 / U:120.136 seconds]
    ©2003-2016 Jasper Spaans. hosted at Digital OceanAdvertise on this site