--- Linuxkernelsort-0.0.1/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