SVN: toys/rsget.pl/RSGet/Processor.pm
sparky
sparky at pld-linux.org
Mon Oct 12 19:55:08 CEST 2009
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 );
More information about the pld-cvs-commit
mailing list