diff options
| -rwxr-xr-x | bin/comirror | 7 |
1 files 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"); } |