Changeset 22510

Timestamp:

10/05/08 11:42:18 (7 weeks ago)

Author:

pmurias

Message:

[smop] fixed sm0p--

Location:

v6/smop/sm0p

Files:

• sm0p_actions.pm (deleted)
• sm0p_with_actions (modified) (1 diff)
• strip_out_actions (modified) (1 diff)

v6/smop/sm0p/sm0p_with_actions

@@ -42 +42 @@
             $self;
         } else {
-            print "no action: $tag\n";
-            {local $_ = $self;$actions->$tag();}
+            #print "no action: $tag\n";
             $self->SUPER::_REDUCE($tag);
         }

v6/smop/sm0p/strip_out_actions

@@ -28 +28 @@
     my $body = $3;
     my $end = $4;
-    $body =~ s/(?<!')\{ ($block) \}/push(@blocks,["${name}__sm0p_$nr",$1]);'{*}' . "  #= sm0p_" . $nr++ . "\n"
+    $body =~ s/(?<!')\{ ($block) \}/push(@blocks,["${name}_sm0p_$nr",$1]);'{*}' . "  #= sm0p_" . $nr++ . "\n"
 /egx;
     $start.$body.$end;