Mercurial > hg > chronicle

comparison tests/perl-syntax.t @ 202:12a343d708a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ignore syntax errors in our Makefile - it isn't perl
author Steve Kemp <steve@steve.org.uk>
date Mon, 14 Apr 2008 19:02:12 +0100
parents 00ed5b99ccb0
children c9262aa2918a
comparison
equal deleted inserted replaced
201:f107f6107ad4 202:12a343d708a1
32 my $file = $File::Find::name; 32 my $file = $File::Find::name;
33 33
34 # We don't care about directories 34 # We don't care about directories
35 return if ( ! -f $file ); 35 return if ( ! -f $file );
36 36
37 # Or makefiles
38 return if ( $file =~ /Makefile/ );
39
37 # `modules.sh` is a false positive. 40 # `modules.sh` is a false positive.
38 return if ( $file =~ /modules.sh$/ ); 41 return if ( $file =~ /modules.sh$/ );
39 42
40 # See if it is a perl file. 43 # See if it is a perl file.
41 my $isPerl = 0; 44 my $isPerl = 0;