fix regexp not to loop stupidly:

[rrd-graphs.git] / cgi

diff --git a/cgi b/cgi
index b9acb9422c5708284063a915cf35f61363654c5b..968745e218940818a98a7b86657802efc62a2d0c 100755 (executable)
--- a/cgi
+++ b/cgi
@@ -203,7 +203,7 @@ foreach my $site (keys %news_sources) {
     my $sk= $site;
     for (;;) {
         last unless $sk =~
-            s/^[^.]*(?:chiark|greenend|news|nntp|peer|feed|in|out)[^.]*\.//;
+  s/^[^. ]*\b(?:chiark|greenend|news|nntp|peer|feed|in|out)\b[^.]*\.//;
         $sk .= " $&";
     }
     foreach my $inout (keys %{ $news_sources{$site} }) {