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

[svn:parrot] r34153 - trunk/languages/pipp/src/common

From:
bernhard
Date:
December 20, 2008 10:59
Subject:
[svn:parrot] r34153 - trunk/languages/pipp/src/common
Message ID:
20081220185926.5E8B8CBA12@x12.develooper.com
Author: bernhard
Date: Sat Dec 20 10:59:25 2008
New Revision: 34153

Modified:
   trunk/languages/pipp/src/common/php_API.pir

Log:
[Pipp] Use ';' (instead of ',') as separator in multikey access


Modified: trunk/languages/pipp/src/common/php_API.pir
==============================================================================
--- trunk/languages/pipp/src/common/php_API.pir	(original)
+++ trunk/languages/pipp/src/common/php_API.pir	Sat Dec 20 10:59:25 2008
@@ -68,7 +68,7 @@
     $I0 = isa val, 'PhpResource'
     if $I0 goto L1
     $P0 = getinterp
-    $P1 = $P0['sub', 1]
+    $P1 = $P0['sub'; 1]
     error(E_WARNING, $P1, "(): supplied argument is not a valid ", type, " resource")
     null $P0
     .return ($P0)
@@ -79,7 +79,7 @@
     .return ($P0)
   L2:
     $P0 = getinterp
-    $P1 = $P0['sub', 1]
+    $P1 = $P0['sub'; 1]
     error(E_WARNING, $P1, "(): supplied resource is not a valid ", type, " resource")
     null $P0
     .return ($P0)
@@ -131,7 +131,7 @@
     $I0 = index '!/', $S0
     if $I0 > -1 goto L1
     $P0 = getinterp
-    $P1 = $P0['sub', 1]
+    $P1 = $P0['sub'; 1]
     error(E_WARNING, $P1, '(): bad type specifier while parsing parameters')
     .return (0)
   L2:
@@ -143,7 +143,7 @@
     goto L7
   L6:
     $P0 = getinterp
-    $P1 = $P0['sub', 1]
+    $P1 = $P0['sub'; 1]
     unless min_num_args == max_num_args goto L8
     $S1 = 'exactly'
     goto L9
@@ -200,7 +200,7 @@
     (expected_type, $P1, $I2) = parse_arg_impl(arg, fmt, ifmt)
     if expected_type == '' goto L1
     $P0 = getinterp
-    $P1 = $P0['sub', 2]
+    $P1 = $P0['sub'; 2]
     $S3 = typeof arg
     error(E_WARNING, $P1, '() expects parameter ', iarg, ' to be ', expected_type, ', ', $S3, ' given')
     .return (0)
@@ -391,7 +391,7 @@
 
 .sub 'wrong_param_count'
     $P0 = getinterp
-    $P1 = $P0['sub', 1]
+    $P1 = $P0['sub'; 1]
     error(E_WARNING, 'Wrong parameter count for ', $P1, '()')
 .end
 



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