[svn:parrot] r46303 - in branches/ops_pct: compilers/opsc/t ext/nqp-rx/src/gen

[cotto at svn.parrot.org]

Author: cotto
Date: Wed May  5 09:09:13 2010
New Revision: 46303
URL: https://trac.parrot.org/parrot/changeset/46303

Log:
[opsc] misc minor updates for thing that have changed since the last sync

Modified:
   branches/ops_pct/compilers/opsc/t/02-parse-all-ops.t
   branches/ops_pct/ext/nqp-rx/src/gen/settings.pm

Modified: branches/ops_pct/compilers/opsc/t/02-parse-all-ops.t
==============================================================================
--- branches/ops_pct/compilers/opsc/t/02-parse-all-ops.t	Wed May  5 08:45:29 2010	(r46302)
+++ branches/ops_pct/compilers/opsc/t/02-parse-all-ops.t	Wed May  5 09:09:13 2010	(r46303)
@@ -30,6 +30,7 @@
     .param string dir
     .local pmc files, filtered_files, os, it
 
+    $P0            = loadlib 'os'
     os             = new ['OS']
     files          = os.'readdir'(dir)
     filtered_files = new ['ResizablePMCArray']

Modified: branches/ops_pct/ext/nqp-rx/src/gen/settings.pm
==============================================================================
--- branches/ops_pct/ext/nqp-rx/src/gen/settings.pm	Wed May  5 08:45:29 2010	(r46302)
+++ branches/ops_pct/ext/nqp-rx/src/gen/settings.pm	Wed May  5 09:09:13 2010	(r46303)
@@ -356,7 +356,7 @@
 	     $I1 = $P2
 	     $P3 = find_lex '$replace_string'
 	     $S1 = $P3
-	     substr $S0, $I0, $I1, $S1
+	     $S0 = replace $S0, $I0, $I1, $S1
 	     $P0 = $S0
 	};