Replace deprecated in-place substr ops

see http://trac.parrot.org/parrot/changeset/46055
fperrad · Apr 27, 2010 · c84044b · c84044b
1 parent f17b2b7
commit c84044b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lua/lua51.pir b/lua/lua51.pir
@@ -136,14 +136,14 @@ used in F<languages/lua/src/POSTGrammar.tg>
     $I0 = index $S0, "/"
   L1:
     unless $I0 >= 0 goto L2
-    substr $S0, $I0, 1, "."
+    $S0 = replace $S0, $I0, 1, "."
     $I0 = index $S0, "/", $I0
     goto L1
   L2:
     $I0 = index $S0, "\\"
   L3:
     unless $I0 >= 0 goto L4
-    substr $S0, $I0, 1, "."
+    $S0 = replace $S0, $I0, 1, "."
     $I0 = index $S0, "\\", $I0
     goto L3
   L4: