diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/util.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/modules/util.pl b/modules/util.pl index 2fa175f..0a5c6c4 100644 --- a/modules/util.pl +++ b/modules/util.pl @@ -17,6 +17,9 @@ my %oq; 'opalert'=> 9001 #OVER NINE THOUSAND!!! ); +#leaves room for more levels if for some reason we end up needing more +#theoretically, you should be able to change those numbers without any damage + %::COLORS = ( 'white' => '00', @@ -54,9 +57,6 @@ sub new return $self; } -#leaves room for more levels if for some reason we end up needing more -#theoretically, you should be able to change those numbers without any damage - sub maxlen { my ($a, $b) = @_; my ($la, $lb) = (length($a), length($b)); @@ -204,4 +204,9 @@ sub seq { return ($n1 eq $n2); } +sub dprint { + my ($module, $text) = @_; + print $text if $::debug; +} + return 1; |
