[glue] Replaced a use of substr_s_i_i_s with a different op sequence …

…to avoid strange behavior and make Rakudo work again.
rakudo · Apr 16, 2010 · cde3507 · cde3507
1 parent 3636234
commit cde3507
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/glue/contextuals.pir b/src/glue/contextuals.pir
@@ -8,11 +8,12 @@
 
     # next, strip twigil and search PROCESS package
     .local string pkgname
-    pkgname = clone name
-    substr pkgname, 1, 1, ''
-    $P0 = get_hll_global ['PROCESS'], pkgname
+    $S0     = substr name, 0, 1
+    $S1     = substr name, 2
+    pkgname = concat $S0, $S1
+    $P0     = get_hll_global ['PROCESS'], pkgname
     unless null $P0 goto done
-    $P0 = get_global pkgname
+    $P0     = get_global pkgname
     unless null $P0 goto done
 
   fail: