This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
big{num,rat,int}: use eval block to load Math::BigInt::Lite
authorOlivier Mengué <dolmen@cpan.org>
Thu, 4 Sep 2014 22:17:23 +0000 (00:17 +0200)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 5 Sep 2014 01:09:01 +0000 (18:09 -0700)
dist/bignum/lib/bigint.pm
dist/bignum/lib/bignum.pm
dist/bignum/lib/bigrat.pm

index 993ea91..7a664ac 100644 (file)
@@ -248,8 +248,7 @@ sub import
     # see if we can find Math::BigInt::Lite
     if (!defined $a && !defined $p)            # rounding won't work to well
       {
-      eval 'require Math::BigInt::Lite;';
-      if ($@ eq '')
+      if (eval { require Math::BigInt::Lite; 1 })
         {
         @import = ( );                         # :constant in Lite, not MBI
         Math::BigInt::Lite->import( ':constant' );
index 40aedce..9a3389f 100644 (file)
@@ -155,8 +155,7 @@ sub import
     # see if we can find Math::BigInt::Lite
     if (!defined $a && !defined $p)            # rounding won't work to well
       {
-      eval 'require Math::BigInt::Lite;';
-      if ($@ eq '')
+      if (eval { require Math::BigInt::Lite; 1 })
         {
         @import = ( );                         # :constant in Lite, not MBI
         Math::BigInt::Lite->import( ':constant' );
index adbeff4..93660a4 100644 (file)
@@ -148,8 +148,7 @@ sub import
     # see if we can find Math::BigInt::Lite
     if (!defined $a && !defined $p)             # rounding won't work to well
       {
-      eval 'require Math::BigInt::Lite;';
-      if ($@ eq '')
+      if (eval { require Math::BigInt::Lite; 1 })
         {
         @import = ( );                          # :constant in Lite, not MBI
         Math::BigInt::Lite->import( ':constant' );