[Secure-testing-commits] r10840 - bin

[sf at alioth.debian.org]

Author: sf
Date: 2009-01-03 12:05:35 +0000 (Sat, 03 Jan 2009)
New Revision: 10840

Modified:
   bin/check-new-issues
Log:
allow to read embedded-code-copies from stdin, for use in svn hook

Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues	2009-01-03 11:55:19 UTC (rev 10839)
+++ bin/check-new-issues	2009-01-03 12:05:35 UTC (rev 10840)
@@ -7,7 +7,7 @@
 use Term::ReadLine;
 
 my %opts;
-getopts('ln:fhi:t:Tca:', \%opts);
+getopts('ln:fhi:t:Tca:e:', \%opts);
 
 if ($opts{h}) {
     print <<'EOF';
@@ -36,6 +36,7 @@
 -t regexp : use regexp to select todos (default: '^\s+TODO: check$' )
 -T	  : same as -t '^\s+TODO: check' (note the missing $)
 -c        : only do syntax check of embedded-code-copies
+-e <file> : use <file> for embedded-code-copies, "-" for STDIN
 -a <n>    : If automatic apt-cache/apt-file search gives more than n results,
             display only the count (default 10)
 
@@ -329,7 +330,8 @@
 }
 
 sub read_embedded_copies {
-	open(my $fh, "$basedir/data/embedded-code-copies");
+	my $emb_file = $opts{e} || "$basedir/data/embedded-code-copies";
+	open(my $fh, $emb_file);
 
 	# skip comments
 	while (<$fh>) {