This just makes it ignore files which say "DO NOT EDIT" (auto-generated
stuff)
--Josh
[josh-012.pach]
Index: check_source_standards.pl
===================================================================
RCS file: /home/perlcvs/parrot/check_source_standards.pl,v
retrieving revision 1.1
diff -u -r1.1 check_source_standards.pl
--- check_source_standards.pl 21 Feb 2002 18:04:32 -0000 1.1
+++ check_source_standards.pl 24 Feb 2002 02:16:33 -0000
@@ -22,6 +22,7 @@
}}, '.');
}
+FILE:
foreach my $file (@files) {
$file =~ s/^\.\///g;
if (!open(F, "<$file")) {
@@ -32,7 +33,14 @@
my @lines = <F>;
close(F);
chomp @lines;
-
+
+ for (@lines[0..10]) {
+ if (/DO NOT EDIT/) {
+ info($file, 0, "$file is automatically generated. Skipping");
+ next FILE;
+ }
+ }
+
check_source($file, \@lines);
}
--
Josh Wilmes ([EMAIL PROTECTED]) | http://www.hitchhiker.org
