Fix minor perl bug.

diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi
index 5d542c7529a36d67b1ac67b36e9c48c7cf81fac0..80e22a80ed8da0344ad68b174b15175202b20e9a 100755 (executable)
--- a/cgi-bin/cvslog.cgi
+++ b/cgi-bin/cvslog.cgi
@@ -14,8 +14,7 @@ if($period eq "days") {
     if ($days < 1) {$days = 1};
     $heading = "i-scream CVS$moduleext commits in the past $days day(s)";
     $days--;
-    $days .= "d"; # because we can't write "$daysd" below :-)
-    $firstdate = ">" . `/bin/date -v-$days +%Y/%m/%d`;
+    $firstdate = ">" . `/bin/date -v-${days}d +%Y/%m/%d`;
 }
 elsif($period eq "date") {
     my($date)=$query->param('date');