File: 04_accept_4_digit_version_string.patch

package info (click to toggle)
liblinux-kernelsort-perl 0.01-3
  • links: PTS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 164 kB
  • ctags: 43
  • sloc: perl: 225; sh: 114; makefile: 36
file content (18 lines) | stat: -rw-r--r-- 814 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#! /bin/sh /usr/share/dpatch/dpatch-run
## 04_accept_2.6.19.1_version.dpatch by Maximilian Wilhelm <max@rfc2324.org>
##
## DP: Let Linux::KernelSort accept a 4 digit version string

@DPATCH@

--- liblinux-kernelsort-perl-0.01/lib/Linux/KernelSort.pm	2006-12-06 23:55:25.000000000 +0100
+++ Linuxkernelsort-allow_4digit_version_string/Linux/KernelSort.pm	2006-12-07 00:16:52.000000000 +0100
@@ -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;
     }