From c52c780cf945aa6a55ab51530cfe694be61a6d10 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Wed, 16 Sep 2009 19:49:12 -0500
Subject: [PATCH] Work around inferior loop problem causing segfault on exit.
 (Based on information from Whiteknight++)

---
 perl6.pir | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl6.pir b/perl6.pir
index fb7e9f1353e..00cb8ada4ca 100644
--- a/perl6.pir
+++ b/perl6.pir
@@ -375,6 +375,7 @@ to the Perl 6 compiler.
     $P0()
     goto iter_loop
   iter_end:
+    exit 0
 .end