X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FUnits.pl;h=aad95d890e4dafb4aa0dc9a6c2ff526d08a3e4a3;hb=3936a3e1255582305fc4200485b71fa692e66bd3;hp=ff16e7e91215413256092f922af750218487510f;hpb=8b54ff5060a6605e169acc0694cb00b89ed22cab;p=infobot.git diff --git a/src/Modules/Units.pl b/src/Modules/Units.pl index ff16e7e..aad95d8 100644 --- a/src/Modules/Units.pl +++ b/src/Modules/Units.pl @@ -54,7 +54,7 @@ BEGIN { $defs_read += read_defs("$::bot_data_dir/unittab"); unless ($defs_read) { - &::ERROR("Could not read any of the initialization files UNITTAB"); + &::ERROR('Could not read any of the initialization files UNITTAB'); return; } } @@ -87,7 +87,7 @@ sub convertUnits { return; } unless ($from =~ /\S/) { - &::DEBUG("FAILURE 2"); + &::DEBUG('FAILURE 2'); return; } @@ -124,8 +124,8 @@ sub convertUnits { # print # "conformability (Not the same dimension)\n", -# "\t", $from, " is ", text_unit($hu), "\n", -# "\t", $to, " is ", text_unit($wu), "\n", +# "\t", $from, ' is ', text_unit($hu), "\n", +# "\t", $to, ' is ', text_unit($wu), "\n", # ; } } @@ -216,7 +216,7 @@ sub unit_multiply { sub unit_divide { my ($a, $b) = @_; if ($b->{_} == 0) { - &::DEBUG("Division by zero error"); + &::DEBUG('Division by zero error'); return; } my $r = {%$a};