--- ./tools/xml_grep/xml_grepORIG	2012-05-17 12:24:59.000000000 +0200
+++ ./tools/xml_grep/xml_grep	2014-01-06 07:58:22.000000000 +0100
@@ -123,8 +123,10 @@
      
 my $t= create_twig( %options);
 
-if( @ARGV)
-  { foreach my $file (@ARGV)
+my @files = @ARGV;
+push @files, '-' unless @files; # fixes http://bugs.debian.org/691028
+if( @files)
+  { foreach my $file (@files)
       { $current_file= $file;
 
         if( $nb_results_per_file) { $nb_results_left_in_current_file= $nb_results_per_file; }