- # 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;
- }
+ # 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;
+ }