harness now exits with non-zero status on failure. This makes the san…

…ity test chaining do the right thing

t/harness

@@ -79,7 +79,10 @@ sub MAIN () {
         }
     }
     if $total_failed {
-        say("FAILED " ~ $total_failed ~ '/' ~ ($total_passed+$total_failed));
+        say("FAILED " ~ $total_failed ~ '/' ~ ($total_passed+$total_failed));	
+	Q:PIR {
+		exit 1
+	}
     } elsif $failed_files {
         say("FAILED " ~ $failed_files ~ " files, PASSED " ~ $total_passed ~ ' tests');
     } else {