Rev 2 | Rev 5 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 2 | Rev 4 | ||
---|---|---|---|
Line 16... | Line 16... | ||
16 | use warnings; |
16 | use warnings; |
17 | use strict; |
17 | use strict; |
18 | use utf8; |
18 | use utf8; |
19 | 19 | ||
20 | use FindBin; |
20 | use FindBin; |
21 | use lib "$FindBin::Bin/../lib/"; |
21 | use lib "$FindBin::RealBin/../lib/"; |
22 | use GWhoIs::Core; |
22 | use GWhoIs::Core; |
23 | 23 | ||
24 | if (defined $ARGV[0]) { |
24 | if (defined $ARGV[0]) { |
25 | $_ = join(' ', @ARGV); |
25 | $_ = join(' ', @ARGV); |
26 | } else { |
26 | } else { |