SVN: toys/rsget.pl/RSGet/Processor.pm

[sparky]

Author: sparky
Date: Mon Oct 12 19:55:08 2009
New Revision: 10769

Modified:
   toys/rsget.pl/RSGet/Processor.pm
Log:
- fixed GOTO


Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm	(original)
+++ toys/rsget.pl/RSGet/Processor.pm	Mon Oct 12 19:55:08 2009
@@ -192,11 +192,11 @@
 			my $next_stage = $2;
 			p_ret( $cmd, "\\&$next_stage" );
 			p_line();
-		} elsif ( s/^GOTO\s+(stage_\S+)// ) {
+		} elsif ( s/^GOTO\s+(stage_[a-z0-9_]+)// ) {
 			p_ret( $1 );
 			pr ')';
 			p_line();
-		} elsif ( s/^(stage_\S+)\s*:\s*(.*)$// ) {
+		} elsif ( s/^(stage_[a-z0-9_]+)\s*:\s*(.*)$// ) {
 			my $next_stage = $1;
 			my $left = $_;
 			p_ret( $next_stage );