diff options
| author | 2012-01-26 07:26:25 +0000 | |
|---|---|---|
| committer | 2012-01-26 07:26:25 +0000 | |
| commit | 1ecf6f4751a33e72d4ef2f57edbd1038fdee74c8 (patch) | |
| tree | 84b59933a743d1c7ae426bbd7d588e547d271c50 /modules | |
| parent | 45a0461a9696a3bf07aafb58a84f3150c7c396ec (diff) | |
fix a misplaced comment and added a useless function
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; |
