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 446845bb8..c362f1137 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -11,6 +11,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 HTML::Widgets::SelectLayers 0.03; diff --git a/htetc/handler.pl b/htetc/handler.pl index 67719b8fe..aeae3800f 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -72,6 +72,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 HTML::Widgets::SelectLayers 0.03; |