From 66e78cbd833acc5ecfe760dcd598ed4eb019cf43 Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Mon, 30 Nov 2009 23:26:10 -0800
Subject: [PATCH] Refactor harness.pir a bit, but it is still a gnarly beast

---
 t/harness.pir | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/t/harness.pir b/t/harness.pir
index 1f09257..594e806 100644
--- a/t/harness.pir
+++ b/t/harness.pir
@@ -30,14 +30,15 @@
     inc total_files
     print file
     print ".........."
-    output = qx('parrot',file)
-    stream = tapir.'parse_tapstream'(output)
+    output  = qx('parrot',file)
+    stream  = tapir.'parse_tapstream'(output)
     success = stream.'is_pass'()
     unless success goto fail
     print "passed "
-    $I0 = stream.'get_pass'()
-    print $I0
-    tests += $I0
+    .local int passing_tests
+    passing_tests = stream.'get_pass'()
+    print passing_tests
+    tests += passing_tests
     say " tests"
     goto redo
  fail:
-- 
2.11.4.GIT