--- Linuxkernelsort-0.0.1/Linux/KernelSort.pm	2006-12-06 23:55:25.000000000 +0100
+++ Linuxkernelsort-allow_leading_v/Linux/KernelSort.pm	2006-12-07 00:11:52.000000000 +0100
@@ -75,7 +75,7 @@
     my $self = shift;
     my $version = shift || return undef;
 
-    if ( $version !~ m/^\d+\.\d+\.\d+(-rc\d+)?(-git\d+)?(-scsi-misc\d+)?(-scsi-rc-fixes\d+)?(-mm\d+)?$/ ) {
+    if ( $version !~ m/^(v)?\d+\.\d+\.\d+(-rc\d+)?(-git\d+)?(-scsi-misc\d+)?(-scsi-rc-fixes\d+)?(-mm\d+)?$/ ) {
         if ( $self->{debug} ) { print "Invalid Kernel Version: $version\n"; }
         return 1;
     }
@@ -102,6 +102,7 @@
     }
 
     $version =~ s/\.//g;
+    $version =~ s/^v//;
     $version =~ m/^(\d+).*/;
     my $rank = $1;