mirror of https://github.com/pragma-/pbot.git
add license header
This commit is contained in:
parent
6a7fffcb03
commit
07ee6ee40c
|
@ -1,5 +1,9 @@
|
||||||
#!/usr/bin/env perl
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
||||||
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
||||||
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
||||||
|
|
||||||
use warnings;
|
use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
|
@ -31,7 +35,7 @@ print "Missing phrase -- $usage" and exit if @$args == 0;
|
||||||
$args = join(' ', @$args);
|
$args = join(' ', @$args);
|
||||||
|
|
||||||
my $ud = WebService::UrbanDictionary->new;
|
my $ud = WebService::UrbanDictionary->new;
|
||||||
my $results = $ud->request($args);
|
my $results = $ud->request($args);
|
||||||
|
|
||||||
sub sort_entries {
|
sub sort_entries {
|
||||||
if (defined $sort) {
|
if (defined $sort) {
|
||||||
|
@ -90,7 +94,7 @@ if (defined $show_all or defined $match) {
|
||||||
|
|
||||||
if ($@) {
|
if ($@) {
|
||||||
my $err = $@;
|
my $err = $@;
|
||||||
|
|
||||||
$err =~ s/; marked by <-- HERE.*/: $match/;
|
$err =~ s/; marked by <-- HERE.*/: $match/;
|
||||||
|
|
||||||
print "Oops, $err\n";
|
print "Oops, $err\n";
|
||||||
|
|
Loading…
Reference in New Issue