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

[bacek at svn.parrot.org]

Author: bacek
Date: Sun May 23 22:59:03 2010
New Revision: 46927
URL: https://trac.parrot.org/parrot/changeset/46927

Log:
Revert "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:58:18 2010	(r46926)
+++ trunk/compilers/opsc/src/Ops/Emitter.pm	Sun May 23 22:59:03 2010	(r46927)
@@ -23,9 +23,7 @@
 
     if !%flags<core> {
         $base := subst( $file, /.ops$$/, '');
-        # Workarond for nqp-setting subst bug.
-        $base := subst( $base, /.*[\/\\]/, '') if $base ~~ /[\/\\]/;
-        #pir::say('# ' ~ $base);
+        $base := subst( $base, /.*\//, '');
     }
 
     my $base_ops_stub := $base ~ '_ops' ~ $suffix;