develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r32576 - in trunk/runtime/parrot/library: File/Spec HTTP

From:
coke
Date:
November 12, 2008 11:28
Subject:
[svn:parrot] r32576 - in trunk/runtime/parrot/library: File/Spec HTTP
Message ID:
20081112192839.7465DCB9AF@x12.develooper.com
Author: coke
Date: Wed Nov 12 11:28:37 2008
New Revision: 32576

Modified:
   trunk/runtime/parrot/library/File/Spec/Win32.pir
   trunk/runtime/parrot/library/HTTP/Daemon.pir

Log:
use of .return as a synonym for .tailcall is [DEPRECATED]


Modified: trunk/runtime/parrot/library/File/Spec/Win32.pir
==============================================================================
--- trunk/runtime/parrot/library/File/Spec/Win32.pir	(original)
+++ trunk/runtime/parrot/library/File/Spec/Win32.pir	Wed Nov 12 11:28:37 2008
@@ -97,7 +97,7 @@
     rulesub= p6rule( ':ignorecase ^ ( <?alpha> \: )? <[\\/]>' )
     match= rulesub( file )
 
-    .return match.'__get_bool'()
+    .tailcall match.'__get_bool'()
 .end
 
 

Modified: trunk/runtime/parrot/library/HTTP/Daemon.pir
==============================================================================
--- trunk/runtime/parrot/library/HTTP/Daemon.pir	(original)
+++ trunk/runtime/parrot/library/HTTP/Daemon.pir	Wed Nov 12 11:28:37 2008
@@ -470,7 +470,7 @@
     srv = conn.'server'()
     $I0 = srv.'exists_conn'(conn)
     if $I0 goto do_read
-    .return srv.'accept_conn'()
+    .tailcall srv.'accept_conn'()
 
 do_read:
     req = conn.'get_request'()
@@ -821,7 +821,7 @@
 
 .sub hex_to_int
     .param pmc hex
-    .return hex.'to_int'(16)
+    .tailcall hex.'to_int'(16)
 .end
 
 # if file is *.pir or *.pbc run it as CGI



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About