kernel-doc (5c98fc0360437327e4034ecfe8b818ad82622100) kernel-doc (1b9bc22d71c75d4145688428c92c5123bd8697e3)
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-2007 Randy Dunlap ##

--- 320 unchanged lines hidden (view full) ---

329 usage();
330 } elsif ($cmd eq '-filelist') {
331 $filelist = shift @ARGV;
332 }
333}
334
335# get kernel version from env
336sub get_kernel_version() {
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-2007 Randy Dunlap ##

--- 320 unchanged lines hidden (view full) ---

329 usage();
330 } elsif ($cmd eq '-filelist') {
331 $filelist = shift @ARGV;
332 }
333}
334
335# get kernel version from env
336sub get_kernel_version() {
337 my $version;
337 my $version = 'unknown kernel version';
338
339 if (defined($ENV{'KERNELVERSION'})) {
340 $version = $ENV{'KERNELVERSION'};
341 }
342 return $version;
343}
344my $kernelversion = get_kernel_version();
345

--- 1662 unchanged lines hidden --- 		338
339 if (defined($ENV{'KERNELVERSION'})) {
340 $version = $ENV{'KERNELVERSION'};
341 }
342 return $version;
343}
344my $kernelversion = get_kernel_version();
345

--- 1662 unchanged lines hidden ---