File: 07_691028.diff

package info (click to toggle)
libxml-twig-perl 1%3A3.50-1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 4,404 kB
  • ctags: 2,144
  • sloc: perl: 20,948; xml: 418; makefile: 7
file content (15 lines) | stat: -rw-r--r-- 503 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
--- ./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; }