General: short circuit out of the URL loop if there is only whitespace left

diff --git a/videosite.pl b/videosite.pl
index 372e62b..00af09f 100644 (file)
--- a/videosite.pl
+++ b/videosite.pl
@@ -167,7 +167,7 @@ sub check_for_link {
     study($message);
 
     # Offer the message to all Grabbers in turn
-    foreach $g (@grabbers) {
+    GRABBER: foreach $g (@grabbers) {
         ($m, $p) = $g->get($message);
         while (defined($m)) {
             write_debug('Metadata: %s', Dumper($m));
@@ -186,6 +186,7 @@ sub check_for_link {
             # more!)
             $message =~ s/$p//;
             study($message);
+            last GRABBER if ($message =~ /^\s*$/);
 
             ($m, $p) = $g->get($message);
         }