[svn:mod_parrot] r238 - mod_parrot/trunk/lib/ModParrot/HLL

Author: jhorwitz
Date: Tue Aug  7 12:33:37 2007
New Revision: 238

Modified:
   mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir

Log:
pass back perl6 handler's return value as is


Modified: mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir
==============================================================================
--- mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir	(original)
+++ mod_parrot/trunk/lib/ModParrot/HLL/perl6.pir	Tue Aug  7 12:33:37 2007
@@ -64,13 +64,6 @@
     r = new 'Apache::RequestRec'
     status = handler(r)
 
-    # XXX fake our reply until Perl6 supports the "return" statement
-    r.'content_type'('text/plain')
-    r.'puts'("This is mod_parrot answering on behalf of mod_perl6.\n")
-    r.'puts'("Your handler ran successfully. Squawk.\n")
-    ap_const = find_global 'Apache::Constants', 'ap_constants'
-    status = ap_const['OK']
-
     # return status code
     .return(status)
 .end