[Collab-qa-commits] r2540 - rc-buggy-leaf-packages

[Niels Thykier]

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);