Преглед на файлове

Merge tag '4.4-fix' of git://git.lwn.net/linux

Pull documentation fix from Jon Corbet:
 "A single fix from Mauro for a 4.4 regression that would cause the docs
  build to fail on systems with ancient Perl installations"

* tag '4.4-fix' of git://git.lwn.net/linux:
  kernel-doc: Make it compatible with Perl versions below 5.12 again
Linus Torvalds преди 10 години
родител
ревизия
116dfe5e88
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      scripts/kernel-doc

+ 1 - 1
scripts/kernel-doc

@@ -2711,7 +2711,7 @@ $kernelversion = get_kernel_version();
 
 
 # generate a sequence of code that will splice in highlighting information
 # generate a sequence of code that will splice in highlighting information
 # using the s// operator.
 # using the s// operator.
-foreach my $k (keys @highlights) {
+for (my $k = 0; $k < @highlights; $k++) {
     my $pattern = $highlights[$k][0];
     my $pattern = $highlights[$k][0];
     my $result = $highlights[$k][1];
     my $result = $highlights[$k][1];
 #   print STDERR "scanning pattern:$pattern, highlight:($result)\n";
 #   print STDERR "scanning pattern:$pattern, highlight:($result)\n";