Author: sparky
Date: Fri Oct 30 14:05:45 2009
New Revision: 10887
Modified:
toys/stbr/queue_parser.pl
Log:
- allow commands with flags
Modified: toys/stbr/queue_parser.pl
==============================================================================
--- toys/stbr/queue_parser.pl (original)
+++ toys/stbr/queue_parser.pl Fri Oct 30 14:05:45 2009
@@ -115,7 +115,8 @@
if ( $rpm ) {
$rpm =~ s/\.src\.rpm$//;
} else {
- ($rpm) = $p =~ m{<command flags="">(.*?)</command>};
+ $p =~ m{<command flags="(.*?)">(.*?)</command>};
+ $rpm = $1 ? "($1) $2" : $2;
}
my $e = color();
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
