From f1e04a024290b263132cac5234e2ce03cbd22b9b Mon Sep 17 00:00:00 2001
From: coke <will@coleda.com>
Date: Fri, 11 Dec 2009 01:32:18 -0500
Subject: [PATCH] Numeric context on time count is insufficient, must be
 integer.

---
 src/Partcl/commands/main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
index 1a58e19..a421973 100644
--- a/src/Partcl/commands/main.pm
+++ b/src/Partcl/commands/main.pm
@@ -421,7 +421,7 @@ our sub time(*@args) {
     my $command := @args[0];
     my $count;
     if +@args == 2 {
-        $count := +@args[1];
+        $count := pir::set__ip(@args[1]);
     } else {
         $count := 1;
     }