diff options
author | ivan <ivan> | 2004-07-06 08:43:54 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-07-06 08:43:54 +0000 |
commit | 99e7fe7d18b91fb886f684a01df2f4efe02b34eb (patch) | |
tree | 10e56f2a56dfaf31c472a4bc33a2b5d892eb00d2 | |
parent | 6787d5247619f651cba138779fc93f016be9bcee (diff) |
0.32 (and then some) released
-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 446845b..c362f11 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 67719b8..aeae380 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; |