cvs commit: parrot/languages/regex/lib/Regex CodeGen.pm

[Steve Fink]

cvsuser     04/11/07 19:13:26

  Modified:    languages/regex/lib/Regex CodeGen.pm
  Log:
  minor tweaks
  
  Revision  Changes    Path
  1.13      +2 -3      parrot/languages/regex/lib/Regex/CodeGen.pm
  
  Index: CodeGen.pm
  ===================================================================
  RCS file: /cvs/public/parrot/languages/regex/lib/Regex/CodeGen.pm,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- CodeGen.pm        19 Nov 2003 07:20:01 -0000      1.12
  +++ CodeGen.pm        8 Nov 2004 03:13:25 -0000       1.13
  @@ -26,7 +26,7 @@
       my ($self, $what) = @_;
       return () unless $self->{DEBUG};
       my $ctx = $self->{ctx};
  -    $what = "\%<$ctx->{rx_pos}>: $what";
  +    $what = "\%<<rx_pos>>: $what";
   
       my @ops;
       foreach my $part ($what =~ /((?:\%\<[\<\>\w]+\>)|[^\%]+)/g) {
  @@ -128,7 +128,6 @@
   
   sub output_goto {
       my ($self, $where) = @_;
  -    $DB::single = 1 if ! ref($where);
       return "branch ".$self->output_label_use($where);
   }
   
  @@ -138,7 +137,7 @@
   
   sub output_label_use {
       my ($self, $label) = @_;
  -    $DB::single = 1 if ! ref $label;
  +    $DB::single = 1 if ! ref $label || ! $label->{label};
       ($label = $label->{label}) =~ s/^@//; # FIXME: local labels?
       return "$label";
   }