Lines Matching refs:mess
420 my $mess = "$_[0]: Division by zero.\n";
423 $mess .= "(Because in the definition of $_[0], the divisor ";
424 $mess .= "$_[1] " unless ("$_[1]" eq '0');
425 $mess .= "is 0)\n";
430 $mess .= "Died at $up[1] line $up[2].\n";
432 die $mess;
664 my $mess = "Root '$_[0]' illegal, root rank must be positive integer.\n";
668 $mess .= "Died at $up[1] line $up[2].\n";
670 die $mess;
776 my $mess = "$_[0]: Logarithm of zero.\n";
779 $mess .= "(Because in the definition of $_[0], the argument ";
780 $mess .= "$_[1] " unless ($_[1] eq '0');
781 $mess .= "is 0)\n";
786 $mess .= "Died at $up[1] line $up[2].\n";
788 die $mess;