- chop;
-
- if (/IsParam\(['"](\S+?)['"]\)/) {
-# print "File: $file: IsParam: $1\n";
- $param{$1}++;
- next;
- }
-
- if (/hasParam\(['"](\S+?)['"]\)/) {
-# print "File: $file: hasParam: $1\n";
- $param{$1}++;
- next;
- }
-
- if (/getChanConfDefault\(['"](\S+?)['"]/) {
-# print "File: $file: gCCD: $1\n";
- $both{$1}++;
- next;
- }
-
- if (/getChanConf\(['"](\S+?)['"]\)/) {
-# print "File: $file: gCC: $1\n";
- $conf{$1}++;
- next;
- }
-
- if (/IsChanConf\(['"](\S+?)['"]\)/) {
-# print "File: $file: ICC: $1\n";
- $conf{$1}++;
- next;
- }
+ chop;
+
+ if (/IsParam\(['"](\S+?)['"]\)/) {
+ print "File: $file: IsParam: $1\n" if $debug;
+ $param{$1}++;
+ next;
+ }
+
+ if (/IsChanConfOrWarn\(['"](\S+?)['"]\)/) {
+ print "File: $file: IsChanConfOrWarn: $1\n" if $debug;
+ $both{$1}++;
+ next;
+ }
+
+ if (/getChanConfDefault\(['"](\S+?)['"]/) {
+ print "File: $file: gCCD: $1\n" if $debug;
+ $both{$1}++;
+ next;
+ }
+
+ if (/getChanConf\(['"](\S+?)['"]/) {
+ print "File: $file: gCC: $1\n" if $debug;
+ $conf{$1}++;
+ next;
+ }
+
+ if (/IsChanConf\(['"](\S+?)['"]\)/) {
+ print "File: $file: ICC: $1\n" if $debug;
+ $conf{$1}++;
+ next;
+ }
+
+ # 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;
+ $both{$1}++;
+ next;
+ }