r4389 - trunk/Docs/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2008-09-06 16:35:05 -0400 (Sat, 06 Sep 2008)
New Revision: 4389

Modified:
   trunk/Docs/server/rcon2irc/rbiserver.pl
Log:
syntax cleanup


Modified: trunk/Docs/server/rcon2irc/rbiserver.pl
===================================================================
--- trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 20:05:50 UTC (rev 4388)
+++ trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 20:35:05 UTC (rev 4389)
@@ -94,7 +94,7 @@
 	{
 		for(@result)
 		{
-			next if -M $_ > 1/24/60; # too old
+			next if -M $_ > 1/(24*60); # too old
 			print "Cleaning up demos: protecting $_\n";
 			chmod 0444, $_;
 		}
@@ -113,7 +113,7 @@
 	for(glob $pattern)
 	{
 		next if not -w $_;   # protected demo (by record, or other markers)
-		next if -M $_ < 1/24/60; # not old enough yet
+		next if -M $_ < 1/(24*60); # not old enough yet
 		print "Cleaning up demos: deleting $_\n";
 		unlink $_;
 	}