Cleaning

Check.pm

@@ -148,9 +148,9 @@ EOF
     my $DUmaxTime      = timeStamp2($Info{DUDailyMaxTime});
     my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
 
-    my $content = eval ("qq{
+    my $content = eval ("
 
-      \${h1(qq{"BackupPC: Check"})}
+      \${h1("BackupPC: Check")}
       <p>
       <ul>
       <li>This status was generated at \$now.
@@ -211,7 +211,7 @@ EOF
       </table>
       EOF
 
-    }");
+    ");
     Header("BackupPC: Check", $content);
     Trailer();
 }