File: 04_accept_4_digit_version_string.patch

package info (click to toggle)
liblinux-kernelsort-perl 0.01-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 172 kB
  • sloc: perl: 225; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 591 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
From: Maximilian Wilhelm <max@rfc2324.org>
Subject: Let Linux::KernelSort accept a 4 digit version string

--- a/lib/Linux/KernelSort.pm
+++ b/lib/Linux/KernelSort.pm
@@ -75,7 +75,7 @@
     my $self = shift;
     my $version = shift || return undef;
 
-    if ( $version !~ m/^(v)?\d+\.\d+\.\d+(-rc\d+)?(-git\d+)?(-scsi-misc\d+)?(-scsi-rc-fixes\d+)?(-mm\d+)?$/ ) {
+    if ( $version !~ m/^(v)?\d+\.\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;
     }