SVN: toys/rsget.pl/rsget.pl

[sparky]

Author: sparky
Date: Thu Jun 11 16:02:36 2009
New Revision: 10393

Modified:
   toys/rsget.pl/rsget.pl
Log:
- in get.list, ignore lines after __END__


Modified: toys/rsget.pl/rsget.pl
==============================================================================
--- toys/rsget.pl/rsget.pl	(original)
+++ toys/rsget.pl/rsget.pl	Thu Jun 11 16:02:36 2009
@@ -1622,6 +1622,10 @@
 		if ( $line =~ /^\s*(#.*)?$/ ) {
 			push @newlist, $line;
 			next;
+		} elsif ( $line =~ /^__END__\s*$/ ) {
+			push @newlist, $line;
+			push @newlist, <$list>;
+			last;
 		}
 		my $uri = undef;
 		my $getter = undef;