4 lines
86 B
Perl
4 lines
86 B
Perl
sub div_check
|
|
{local $@;
|
|
eval {$_[0] / $_[1]};
|
|
$@ and $@ =~ /division by zero/;}
|