From 2423115b919f4c11c8eddc96667e987e33cef13a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Thu, 20 May 2010 19:37:23 +0200
Subject: Fix loop detection

---
 bin/comirror | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/bin/comirror b/bin/comirror
index d03e3af..a099212 100755
--- a/bin/comirror
+++ b/bin/comirror
@@ -35,11 +35,12 @@ while (
 	and $mech->status() == 200
       )
 {
-	say $mech->uri();
+	say $mech->uri->as_string;
+	say $uri;
 
-	$uri = find_next_link->url();
+	$uri = find_next_link->URI->abs->as_string;
 
-	if ($uri == $mech->uri) {
+	if ($uri eq $mech->uri->as_string) {
 		die("Looks like we're in a loop, bailing out\n");
 	}
 
-- 
cgit v1.2.3