Author: nthykier
Date: 2012-10-31 09:54:12 +0000 (Wed, 31 Oct 2012)
New Revision: 2540
Modified:
rc-buggy-leaf-packages/rt-find-rc-buggy-leaf-packages
Log:
Accept rcbugs files from STDIN
Modified: rc-buggy-leaf-packages/rt-find-rc-buggy-leaf-packages
===================================================================
--- rc-buggy-leaf-packages/rt-find-rc-buggy-leaf-packages 2012-10-31
09:53:50 UTC (rev 2539)
+++ rc-buggy-leaf-packages/rt-find-rc-buggy-leaf-packages 2012-10-31
09:54:12 UTC (rev 2540)
@@ -109,8 +109,13 @@
sub _parse_bugs {
my ($bugfile, $bin2src) = @_;
my $buggy = {};
+ my $fd;
- open my $fd, '<', $bugfile or die "opening $bugfile: $!";
+ if ($bugfile eq '-') {
+ open $fd, '<&', *STDIN or die "dup STDIN: $!";
+ } else {
+ open $fd, '<', $bugfile or die "opening $bugfile: $!";
+ }
while ( my $line = <$fd> ) {
my ($pkg, $bug);
_______________________________________________
Collab-qa-commits mailing list
Collab-qa-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/collab-qa-commits
