diff options
-rw-r--r-- | htetc/global.asa | 4 | ||||
-rw-r--r-- | htetc/handler.pl | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/htetc/global.asa b/htetc/global.asa index 55cc8ed94..782e06223 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -15,6 +15,10 @@ use HTML::Entities; use IO::Handle; use IO::File; use Net::Whois::Raw qw(whois); +if ( $] < 5.006 ) { + eval "use Net::Whois::Raw 0.32 qw(whois)"; + die $@ if $@; +} use Business::CreditCard; use String::Approx qw(amatch); use Chart::LinesPoints; diff --git a/htetc/handler.pl b/htetc/handler.pl index d425c2270..885c21641 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -98,6 +98,10 @@ sub handler use IO::Handle; use IO::File; use Net::Whois::Raw qw(whois); + if ( $] < 5.006 ) { + eval "use Net::Whois::Raw 0.32 qw(whois)"; + die $@ if $@; + } use Business::CreditCard; use String::Approx qw(amatch); use Chart::LinesPoints; |