--- EV/t/01_timer.t	2007/11/17 01:48:49	1.3
+++ EV/t/01_timer.t	2007/11/17 01:51:16	1.4
@@ -11,13 +11,13 @@
 my $base = EV::now;
 my $prev = EV::now;
 
-for (1..1000) {
-   my $t = $_ * $_ * 1.735435336; $t -= int $t;
+for my $i (1..1000) {
+   my $t = $i * $i * 1.735435336; $t -= int $t;
    push @timer, EV::timer $t, 0, sub {
       my $now = EV::now;
 
-      print $now >= $prev      ? "" : "not ", "ok ", ++$id, " # t0 $now >= $prev\n";
-      print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # t1 $now >= $base + $t\n";
+      print $now >= $prev      ? "" : "not ", "ok ", ++$id, " # t0 $i $now >= $prev\n";
+      print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # t1 $i $now >= $base + $t\n";
 
       unless ($id % 3) {
          $t *= 0.0625;
@@ -29,12 +29,12 @@
       $prev = $now;
    };
 
-   my $t = $_ * $_ * 1.375475771; $t -= int $t;
+   my $t = $i * $i * 1.375475771; $t -= int $t;
    push @periodic, EV::periodic $base + $t, 0, 0, sub {
       my $now = EV::now;
 
-      print $now >= $prev      ? "" : "not ", "ok ", ++$id, " # p0 $now >= $prev\n";
-      print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # p1 $now >= $base + $t\n";
+      print $now >= $prev      ? "" : "not ", "ok ", ++$id, " # p0 $i $now >= $prev\n";
+      print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # p1 $i $now >= $base + $t\n";
 
       unless ($id % 3) {
          $t *= 1.0625;