From aca3759d9008e9b9f4a3f703357c26b45e8cd713 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 26 Nov 2009 17:57:55 -0600
Subject: silence warning

---
 lib/Crawl/Bot.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/Crawl/Bot.pm')

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+: //;
-- 
cgit v1.2.3-54-g00ecf