1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#! /bin/sh /usr/share/dpatch/dpatch-run
## 06_further_doc_fixes.dpatch by Maximilian Wilhelm <max@rfc2324.org>
##
## DP: Further fixes for the in .pm documentation
@DPATCH@
--- liblinux-kernelsort-perl-0.01/lib/Linux/KernelSort.pm 2006-12-07 01:31:30.000000000 +0100
+++ Linuxkernelsort-further_doc_fixes/Linux/KernelSort.pm 2006-12-07 01:23:26.000000000 +0100
@@ -11,29 +11,29 @@
use Linux::KernelSort;
my $kernel = new Linux::KernelSort;
- int $ret;
+ my $ret;
my $version1 = "2.6.19";
my $version2 = "2.6.19-rc2-git7";
$ret = $kernel->compare($version1, $version2);
if ($ret == 0) {
- print "$version1 and $version2 are the same version";
+ print "$version1 and $version2 are the same version\n";
} elsif ($ret > 0) {
- print "$version1 is newer than $version2";
+ print "$version1 is newer than $version2\n";
} else {
- print "$version1 is older than $version2";
+ print "$version1 is older than $version2\n";
}
- my @kernel_list = [ '2.6.15',
+ my @kernel_list = ( '2.6.15',
'2.6.18',
'2.6.18-rc2',
'2.6.18-rc2-git2',
'2.6.18-mm1',
- '2.6.18-rc2-mm1' ];
+ '2.6.18-rc2-mm1' );
my @sorted_list = $kernel->sort(@kernel_list);
- print "@sorted_list";
+ print join( ', ', @sorted_list );
=head1 DESCRIPTION
|
