diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-11-26 17:57:55 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-11-26 17:57:55 -0600 |
commit | aca3759d9008e9b9f4a3f703357c26b45e8cd713 (patch) | |
tree | e4d372cd273c6ac4f8bf82198c5558e8ef3c66d8 | |
parent | d5c446c70e776601fc83c9b0c2afde74918c0fa9 (diff) | |
download | crawlbot-aca3759d9008e9b9f4a3f703357c26b45e8cd713.tar.gz crawlbot-aca3759d9008e9b9f4a3f703357c26b45e8cd713.zip |
silence warning
-rw-r--r-- | lib/Crawl/Bot.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Crawl/Bot.pm b/lib/Crawl/Bot.pm index 0af614c..4fa7d62 100644 --- a/lib/Crawl/Bot.pm +++ b/lib/Crawl/Bot.pm @@ -100,8 +100,7 @@ sub tick { warn "Checking for new issues..."; $self->each_issue(sub { my $issue = shift; - my $link = $issue->identifier; - (my $id = $link) =~ s/.*=(\d+)$/$1/; + (my $id = $issue->identifier) =~ s/.*=(\d+)$/$1/; return if $self->has_issue($id); warn "New issue! ($id)"; (my $title = $issue->title) =~ s/\d+: //; |