next;
}
- if (/hasParam\(['"](\S+?)['"]\)/) {
- print "File: $file: hasParam: $1\n" if $debug;
- $param{$1}++;
+ if (/IsChanConfOrWarn\(['"](\S+?)['"]\)/) {
+ print "File: $file: IsChanConfOrWarn: $1\n" if $debug;
+ $both{$1}++;
next;
}
next;
}
- if (/getChanConf\(['"](\S+?)['"]\)/) {
+ if (/getChanConf\(['"](\S+?)['"]/) {
print "File: $file: gCC: $1\n" if $debug;
$conf{$1}++;
next;
next;
}
- # command hooks => hasParam => both.
+ # command hooks => IsChanConfOrWarn => both.
# note: this does not support multiple lines.
if (/\'Identifier\'[\s\t]=>[\s\t]+\'(\S+?)\'/) {
print "File: $file: command hook: $1\n" if $debug;
foreach (sort keys %conf) {
print " $_\n";
}
+
+# vim:ts=4:sw=4:expandtab:tw=80