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;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
