1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
--- dnsenum.pl.orig 2016-04-22 00:50:16 UTC
+++ dnsenum.pl
@@ -58,6 +58,8 @@ use Net::Netmask;
use XML::Writer;
use Socket;
use String::Random;
+no if $] >= 5.017011, warnings => 'experimental::smartmatch';
+
my ($ithreads_support, $whois_support, $mech_support, $html_support,$xml_support);
@@ -71,7 +73,7 @@ my ($domain, $recur, $table, $extend_b,
my ($timeout, $delay, $pages, $ipcount, $ipvalid) = (10, 3, 5, 0, 0);
my ($output);
my $writer;
-my $program = 'dnsenum.pl';
+my $program = 'dnsenum';
my $string_gen = String::Random->new;
my $wildcards = $string_gen->randpattern("cccccccccccc");
my @wildcardaddress;
@@ -176,11 +178,6 @@ if ($whois && !defined $whois_support) {
"whois queries disabled.\n";
$whois = undef;
}
-if ($whois && !defined $whois_support) {
- warn "Warning: can't load Net::Whois::IP module, ".
- "whois queries disabled.\n";
- $whois = undef;
-}
if ($output && !defined $xml_support) {
warn "Warning: can't load XML::Writer module, ".
"xml output disabled.\n";
|
