| kernel-doc (65b7f6d740a6696974056251c98da0e99f956be8) | kernel-doc (1ef0623371e0a39a476fb05e575089cf48178f5c) |
|---|---|
| 1#!/usr/bin/perl -w 2 3use strict; 4 5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## 7## Copyright (C) 2001 Simon Huggins ## 8## Copyright (C) 2005-2012 Randy Dunlap ## --- 2697 unchanged lines hidden (view full) --- 2706 } 2707} 2708 2709 2710$kernelversion = get_kernel_version(); 2711 2712# generate a sequence of code that will splice in highlighting information 2713# using the s// operator. | 1#!/usr/bin/perl -w 2 3use strict; 4 5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## 7## Copyright (C) 2001 Simon Huggins ## 8## Copyright (C) 2005-2012 Randy Dunlap ## --- 2697 unchanged lines hidden (view full) --- 2706 } 2707} 2708 2709 2710$kernelversion = get_kernel_version(); 2711 2712# generate a sequence of code that will splice in highlighting information 2713# using the s// operator. |
| 2714foreach my $k (keys @highlights) { | 2714for (my $k = 0; $k < @highlights; $k++) { |
| 2715 my $pattern = $highlights[$k][0]; 2716 my $result = $highlights[$k][1]; 2717# print STDERR "scanning pattern:$pattern, highlight:($result)\n"; 2718 $dohighlight .= "\$contents =~ s:$pattern:$result:gs;\n"; 2719} 2720 2721# Read the file that maps relative names to absolute names for 2722# separate source and object directories and for shadow trees. --- 23 unchanged lines hidden --- | 2715 my $pattern = $highlights[$k][0]; 2716 my $result = $highlights[$k][1]; 2717# print STDERR "scanning pattern:$pattern, highlight:($result)\n"; 2718 $dohighlight .= "\$contents =~ s:$pattern:$result:gs;\n"; 2719} 2720 2721# Read the file that maps relative names to absolute names for 2722# separate source and object directories and for shadow trees. --- 23 unchanged lines hidden --- |