From f1f2ed71a58fab512c19ba73ec6475bf10124391 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 3 Jul 2015 14:28:09 +0200
Subject: [PATCH] static-hybrid.pl passes perl -c

ToString needs parenthesis.
---
 modules/static-hybrid.pl | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/modules/static-hybrid.pl b/modules/static-hybrid.pl
index ef6fe2b3..9a64990c 100644
--- a/modules/static-hybrid.pl
+++ b/modules/static-hybrid.pl
@@ -174,22 +174,22 @@ sub StaticHtml {
 	# Process the page
 	local $Message = "";
 	# encoding is left off, so fix it:
-	my $result = ToString sub {
-		print qq!<?xml version="1.0" encoding="UTF-8" ?>!;
-		print GetHeader($id, QuoteHtml($id), undef, "");
-		print $q->start_div({-class=> 'content browse'});
-		print PageHtml($id);
-		print $q->end_div();
-		SetParam('rcclusteronly', $id) if (FreeToNormal(GetCluster($Page{text})) eq $id);
-		if (($id eq $RCName) || (T($RCName) eq $id) || (T($id) eq $RCName)
-			|| GetParam('rcclusteronly', '')) {
-			print $q->start_div({-class=>'rc'});;
-			print $q->hr()  if not GetParam('embed', $EmbedWiki);
-			DoRc(\&GetRcHtml);
-			print $q->end_div();
-		}
-		PrintFooter($id);
-	}
+	my $result = ToString(sub {
+          print qq!<?xml version="1.0" encoding="UTF-8" ?>!;
+          print GetHeader($id, QuoteHtml($id), undef, "");
+          print $q->start_div({-class=> 'content browse'});
+          print PageHtml($id);
+          print $q->end_div();
+          SetParam('rcclusteronly', $id) if (FreeToNormal(GetCluster($Page{text})) eq $id);
+          if (($id eq $RCName) || (T($RCName) eq $id) || (T($id) eq $RCName)
+              || GetParam('rcclusteronly', '')) {
+            print $q->start_div({-class=>'rc'});;
+            print $q->hr()  if not GetParam('embed', $EmbedWiki);
+            DoRc(\&GetRcHtml);
+            print $q->end_div();
+          }
+          PrintFooter($id);
+        });
 	print $F $result;
 	return;
 }