$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;
}
}
return;
}
unless ($from =~ /\S/) {
- &::DEBUG("FAILURE 2");
+ &::DEBUG('FAILURE 2');
return;
}
# 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",
# ;
}
}
sub unit_divide {
my ($a, $b) = @_;
if ($b->{_} == 0) {
- &::DEBUG("Division by zero error");
+ &::DEBUG('Division by zero error');
return;
}
my $r = {%$a};