[svn:parrot] r46924 - trunk/compilers/opsc/src/Ops

[bacek at svn.parrot.org]

Author: bacek
Date: Sun May 23 22:39:09 2010
New Revision: 46924
URL: https://trac.parrot.org/parrot/changeset/46924

Log:
Add workaround for nqp-setting bug. To be removed after fixing nqp side.

Modified:
   trunk/compilers/opsc/src/Ops/Emitter.pm

Modified: trunk/compilers/opsc/src/Ops/Emitter.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/Emitter.pm	Sun May 23 22:04:01 2010	(r46923)
+++ trunk/compilers/opsc/src/Ops/Emitter.pm	Sun May 23 22:39:09 2010	(r46924)
@@ -23,7 +23,9 @@
 
     if !%flags<core> {
         $base := subst( $file, /.ops$$/, '');
-        $base := subst( $base, /.*\//, '');
+        # Workarond for nqp-setting subst bug.
+        $base := subst( $base, /.*[\/\\]/, '') if $base ~~ /[\/\\]/;
+        #pir::say('# ' ~ $base);
     }
 
     my $base_ops_stub := $base ~ '_ops' ~ $suffix;