From 9dd541b4faa7b34f0c33cd1cbc64248ad15d87ef Mon Sep 17 00:00:00 2001 From: Michael Mikonos <127171689+mknos@users.noreply.github.com> Date: Thu, 21 Mar 2024 09:34:43 +0800 Subject: [PATCH] Simplify error message if BigFloat is missing Normally this would be present but possibly a perl was built without it. --- bin/bc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/bc b/bin/bc index 16751bf0..68869d03 100755 --- a/bin/bc +++ b/bin/bc @@ -2034,10 +2034,10 @@ sub command_line() while (@ARGV) { my $f = shift @ARGV; if ($f eq '-b') { - require Math::BigFloat; + eval { require Math::BigFloat } or die "This program requires the Math::BigFloat module\n"; $bignum = 1; } elsif ($f eq '-d') { - require Data::Dumper; + eval { require Data::Dumper } or die "This program requires the Data::Dumper module\n"; $debug = 1; } elsif ($f eq '-y') { $yydebug = 1;